blogMyTrash

‘ zeilenweise einlesen bzw. auslesen einer Textdatei mit VB-Script

dateiPfad = “C:\Beispiel.txt”
x = 0
Const ForReading = 1

Set fs = CreateObject(“Scripting.FileSystemObject”)

If (fs.FileExists(dateiPfad)) Then
Set f = fs.OpenTextFile(dateiPfad, ForReading) ‘öfnen des File zum Lesen

Do While f.AtEndOfStream <> True ‘solange einlesen bis Ende der Datei erreicht
x = x+1
ReDim Preserve myArray(x) ‘Array vergrößern, damit wir beim einlesen flexibel sind
org_zeile = f.Readline ‘zeilenweise Einlesen der Textdatei (Filename)

myArray(x) = org_zeile ‘ausgelesene Zeile in Array zwischenspeichern
Loop
f.Close

For x = 1 To UBound(myArray) ‘Für alle aus dem Config File gelesenen Buttonnamen vergeben und auf Visible setzen
msgbox myArray(x)
Next
End If