Först laddas en fil in som sedan ska converteras in i en tabel.
Här är koden:
Koden är i VB

Function Main()

Const ForReading = 1
Dim fso, sourceFile, line, cell, character

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("D:\2003_45_24H_30") Then
Set sourceFile = fso.OpenTextFile("D:\2003_45_24H_30", ForReading, False)
Do While sourceFile.AtEndOfStream <> True
line = sourceFile.ReadLine

Här vill jag loopa igenom line och leta efter " "
när ett " " kommer vill jag lägga in den texten
i tabelen och leta efeter nästa sträng om det finns
flera " " efter varandra så vill jag ta bort dom.
Jag försökte med:
for i = 1 to len(line) ' den vill inte ta len
if mid(line, i, 1) <> " " then
word = mid(line, i, 1) 'den vill inte ta mid

loop

Loop
sourceFile.Close
else
MsgBox "filen finns inte"
end if

Main = DTSTaskExecResult_Success
End Function

Varför fungerar inte Mid och Len i ActiveX Scripten i SQL Server 2000?
Finns det något annat sätt att lösa det här på?

Det ända som behövdes var att convertera line till String innan den skickades in i funktionerna