Home VBScript [VBS] Odczyt z pliku do tablicy

[VBS] Odczyt z pliku do tablicy

Email Drukuj PDF

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
Share Link: Share Link: Bookmark Google Yahoo MyWeb Del.icio.us Digg Facebook Myspace Reddit Ma.gnolia Technorati Stumble Upon
 

Key Concepts

Login Form