[VBS] Leggere tabella da file di testo

[SirKren]

Salve a tutti,

Come da titolo,

Se ho un file.txt costituito da:
- prima riga di commento
- 2 colonne (separate da spazio) di 3 valori

Es:

# val1 - val2
2 4
6 8
5 10

Come faccio in VBS a leggere tali valori e metterli in due array Val1[3], Val2[3] ?

Ho provato con una cosa del genere ma ovviamente non è giusto...

	
	dim objFSO
	dim objFile
	dim strLine
	dim strArr
	dim i
	dim v1(3)
	dim v2(3)
	
	
	file = "C:\file.txt"
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(file, 1)
	i=0
	
	Do Until objFile.AtEndOfStream
		strLine = objFile.Readline
		objFile.SkipLine
		
		strArr = Split(strLine,",")
		
		v1(i) = strArr(0)
		v2(i) = strArr(1)

		Msgbox(v1(i) & v2(i))
		
		i=i+1
		
	Loop

grazie a tutti!

[yyzyyz]

imposta il file.txt cosi:

# val1 - val2

2 4
6 8
5 10

Dim objFSO
    Dim objFile
    Dim strLine
    Dim strArr
    Dim i
    Dim v1(3)
    Dim v2(3)
        
    file = "C:\file.txt"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(file, 1)
    i = 0
    
    Do Until objFile.AtEndOfStream
        strLine = objFile.Readline
        
        If Mid(strLine, 1, 1) = "#" Then
            objFile.SkipLine
        Else
            strArr = Split(strLine, " ")
            v1(i) = strArr(0)
            v2(i) = strArr(1)
            MsgBox (v1(i) & "-" & v2(i))
            i = i + 1
        End If
    Loop

[SirKren]

Grazie mille yyzyyz


Ogni volta che imparo un linguaggio nuovo mi incasino sempre sul leggere tabelle da .txt!