vaste lengte moet variabel worden

[HarryHof]

Tot voorkort had ik een txt komma gescheiden bestand met als structuur: "1234567 A12","123123","V10.10".
Een vb script genereerde een output file zoals: " 00000 123123 V10.10 P 1234567".

Probleem is dat nu de eerste waarde "1234567" kan varieren in lengte en dus ook "12345678" kan zijn. Dus beide
lengtes zijn mogelijk.

Het script wat tot op heden functioneerde was:

Set oFSO = CreateObject("Scripting.FileSystemObject")Set oFile = oFSO.OpenTextFile(WScript.Arguments(0), 1)aData = Split(oFile.ReadAll, VbCrLf)oFile.Close 
Dim aElements(3) 
For Each sLine In aData    
aElements(0) = Mid(sLine, 1, 7)    
aElements(1) = Mid(sLine, 13, 6)    
aElements(2) = Mid(sLine, 20, 6)    
WScript.Echo Space(9) & "00000" & Space(3) & aElements(1) & Space(3) & aElements(2) & Space(3) & "P " & Space(3) & aElements(0) 


Ik heb geprobeerd om het volgende toe te voegen:
if aElements(0) < 7 then 
aElements(0) = " " & aElements(0) 
end if.

Dit geeft echter een Runtime foutmelding.

Hoe kan ik het zo instellen dat de eerste waarde niet fixed (7 karakters) is maar ook 8 karakters lang?

 

[edmoor]

En weer wordt er gemeld dat er een foutmelding verschijnt, zonder er bij te vertellen welke melding dat dan is.