VisualBasic *.ini Dateien nutzen / JS Bilder vorla

Computer: Software & Programmierung Programmierung allgemein
1

Hi,

ich habe zwei Probleme:

Zum einen habe ich mit VisualBasic5 (bin absoluter Anfänger) ein Programm entwickelt, welches Command-Buttons, enthält, welche auf Mausklick Programme starten.
Ein Beispiel:

Private Sub ICQ_Click()
Shell „G:\ICQ\Icq.exe“, vbNormalFocus
End Sub

Nun möchte ich das Progamm gern extern über eine Text-Datei (.ini) konfigurieren, sprich statt des Pfades im Code soll sich das Programm den Pfad aus einer externen Datei holen.
Wie mach ich das ? Ein kompletter Code dafür wäre freundlich, ich hab bisher immer nur Bruchstücke bekommen, mit denen ich nichts anfangen konnte (evtl. per eMail).

Ein weiteres Problem ist für mich JavaScript. Ich möchte gern eine Webseite dazu bringen, im Hintergrund, also unsichtbar für den Besucher, weitere Bilder der Homepage in den Chache zu laden, und auf Anforderung sofort zu zeigen. Dafür bräucht ich einen kompletten Code, weil ich mit Java Script net klar-komme.

Danke im Vorraus,
Andre Sabban
[email protected]

2

Ich poste Dir eine Einfache Lösung es geht zwar auch über richtig ini Dateien oder die Registry aber das wäre mir zu unangenehm.

Auslesen (cut here):

on error resume next
#ff=freefile
Open file.ini For Input As #ff

'öffnet die datei deren name in der 'variable file.ini

public sub read()
dim ff as Byte
Line Input #ff, Username
Username = Right(Username, Len(Username) - 1)
Username = Left(Username, Len(Username) - 1)

'nimmt links und rechts die Hochkommas weg.
'Kannst Du beliebig oft wiederholen

Close #ff
end sub

'schließt die Datei

'Schreiben (praktisch analog)

public sub writ
Dim ff As Byte
ff = FreeFile
Open configpa For Output As #ff
Write #ff, Username ’ + Chr(13)
close ff
end sub

(until here

3

Jetzt doch noch mal die ini Version:
in eine bas datei (normalerweise Global.bas) in Sektion Deklarationen

Public Declare Function WriteProfileString Lib „kernel32“ Alias „WriteProfileStringA“ (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
Public Declare Function GetProfileString Lib „kernel32“ Alias „GetProfileStringA“ (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

und aufruf:
n%=writeprofilestring(Abschnitt,Eintrag,Wert,„test.ini“)

Dann hast du die Datei test.ini mit:
[abschnitt]
Eintrag=Wert

auslesen analog

4

Danke, ich werds mal versuchen :wink: