VBScript für jedes Array

Question

Ich bin auf der Suche nach einem Textdokument oder einzelnen Feld CSV-Dokument in ein Array ziehen dann durch das Array.

Ich habe hier ein paar Beispiele durchgelesen, schaffe es aber immer noch nicht, dass das Skript funktioniert.

Jeder Einblick wäre willkommen und tut mir leid, wenn ich einen früheren nützlichen Beitrag verpasst habe.

#$language = "VBScript" 
#$interface = "1.0" 

crt.Screen.Synchronous = True 

Sub Main 
Set fso = CreateObject("Scripting.FileSystemObject") 

Set hosts = fso.OpenTextFile("C:\Users\XXXX\Documents\2016\3 SmartServices\SNMPHosts.txt") 



Do Until hosts.AtEndOfStream 
    strNextLine = hosts.Readline 
    arrServiceList = Split(strNextLine , ",") 
Loop 

hosts.Close 

For Each item In hosts 
    crt.Screen.Send "telnet " & item & chr(13) 
    crt.Screen.WaitForString "username: " 
    crt.Screen.Send "UUUU" & chr(13) 
    crt.Screen.WaitForString "password: " 
    crt.Screen.Send "PPPP" & chr(13) 
    crt.Screen.WaitForString ">" 
    crt.Screen.Send "en" & chr(13) 
    crt.Screen.Send "PPPP" & chr(13) 
    crt.Screen.WaitForString "#" 
    crt.Screen.Send "conf t" & chr(13) 
    crt.Screen.WaitForString "(config)#" 
    crt.Screen.Send "COMMAND STATIC TEXT" & chr(13) 
    crt.Screen.Send "COMMAND STATIC TEXT" & chr(13) 
    crt.Screen.WaitForString "(config)#" 
    crt.Screen.Send "end" & chr(13) 
    crt.Screen.WaitForString "#" 
    crt.Screen.Send "wr" & chr(13) 
    crt.Screen.WaitForString "#" 
    crt.Screen.Send "exit" & chr(13) 
    crt.Screen.WaitForString "WAIT END STRING" 
Next 
End Sub 

Answer 1

Die Split-Befehl ist, was Sie brauchen. So ReadAll statt ReadLine

MyVar = Split(hosts.ReadAll, vbcrlf) 

For Each thing in MyVar 
    Msgbox Replace(thing, ",", "") 
Next 

Von Hilfe bei https://www.microsoft.com/en-au/download/details.aspx?id=2764

Split-Funktion

Gibt eine Null-basierte, eindimensionale Anordnung eine bestimmte Anzahl von Teil enthält.

Split(expression[, delimiter[, count[, compare]]]) 

Verwenden ersetzen das Komma zu entfernen.