Visual Basic programm Datei Basic Code pfad ini-Dateien

VisualBasic *.ini Dateien nutzen / JS Bilder vorla

Von: , Frage gestellt am Mo, 27. Sep 1999

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
[E-Mail-Adresse entfernt]

3 Antworten zu dieser Frage

1. Antwort von nach 35 Minuten hilfreich

   Re: VisualBasic *.ini Dateien nutzen / JS Bilder v

   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):
   
   <CODE>
   on error resume next
   #ff=freefile
   Open file.ini For Input As #ff
   </CODE>
   
   'öffnet die datei deren name in der 'variable file.ini
   <CODE>
   public sub read()
   dim ff as Byte
   Line Input #ff, Username
   Username = Right(Username, Len(Username) - 1)
   Username = Left(Username, Len(Username) - 1)
   <code>
   'nimmt links und rechts die Hochkommas weg.
   'Kannst Du beliebig oft wiederholen
   <code>
   Close #ff
   end sub
   </CODE>
   'schließt die Datei
   
   'Schreiben (praktisch analog)
   <CODE>
   public sub writ
   Dim ff As Byte
   ff = FreeFile
   Open configpa For Output As #ff
   Write #ff, Username ' + Chr(13)
   close ff
   end sub
   </CODE>
   
   (until here
   

   • Antwort von nach 22 Stunden hilfreich

     Re^2: VisualBasic *.ini Dateien nutzen / JS Bilder

     Danke, ich werds mal versuchen ;)
     

2. Antwort von nach 15 Stunden hilfreich

   Re: VisualBasic *.ini Dateien nutzen / JS Bilder v

   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
   

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!