Odczyt z pliku do tablicy :

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("c:\kontakty\nazwisko_tel.txt", ForReading)

Do Until objTextFile.AtEndOfStream
    strNextLine = objTextFile.Readline
    arrContactList = Split(strNextLine , ",")
    Wscript.Echo "Nazwisko: " & arrContactList(0)
    For i = 1 to Ubound(arrServiceList)
        Wscript.Echo "Telefon: " & arrContactList(i)
    Next
Loop

Ostatnie uaktualnienie : 17-06-2009 22:18

Słowa kluczowe : Odczyt z pliku do tablicy, vbs, vbscript, arr

Średnia ocena użytkownika

Brak ocen