Skal lave tekstfil om til kommasep fil

Så filen:

\"G000000000000000020010307113957000000.0000001IS000000000000000000000000004EM000003
T20010307113958002722.0000100011636000400000041M\"

indeholder to poster ? (bare for at være sikker ..)

Nej den kan variere med få poster til tusindvis

\"Dataformatet ser således ud for G-linien: 1+16+6+6+8+2+4+1+1+4+19+4+1+1+3+3+1+1 = 84 Char \"
den fatter jeg ikke meget af !?

puller:> nåå ja .. men jeg mente at DEN linie der indeholdte 2 poster . .

Det er hvornår komma skal sættes. Man kan også sige det sådan at det er feltets størrels man her angiver. Altså hvormang tegne der må være i hvert felt!

Det er sådan at G og T indikerer hvilket format der skal bruges!

Det er måske mig der forklarer mig dårligt men den indholder selvfølgelig to linier denne fil her!

hmm .. den kan jeg skuøt lige greje .. sorry

Tror du ikke at det er muligt hvis man gør sådan at den søger efter et G eller T som første tegn at det er muligt at vælge det ene eller andet format.

For det den egentlig bare skal gøre er at den skal sætte et komma et char inde og derefter 16 char inde osv.?

Dim iIn as Integer
Dim iOutG as Integer
Dim iOutT as Integer
Dim strIn As String
Dim larOut As String
iIn=FreeFile

Open \"Inputfil.txt\" For Input As iIn
iOutG=FreeFile
Open \"OutputG.txt\" For Output As iOutG
oOutT=FreeFile
Open \"OutputT.txt\" For Output As iOutT


While Not Eof(iIn)

Line Input #iIn, strIn

If Mid(strIn,1,1)=\"G\" Then
\'Do GInput
strOut=Mid(strIn,2,1) & \",\"
strOut=strOut & Mid(strIn,3,16) & \",\"
strOut=strOut & Mid(strIn,20,6) & \",\"
.
.
.
.
strOut=strOut & Mid(strIn,84,1)
Print #iOutG, strOut \'Skriv en linje til filen

ElseIf Mid(strIn,1,1)=\"T\" Then
\'Do TInput
\'efter samme mønster som DoGInput :o)


End If

Wend

Close iOutG
Close iOutT
Close iIn

Man kunne evt. skrive en generelt kodestump ala:

larInFormat=Array(1,16,6,6,8,2,4,1,1,4,19,4,1,1,3,3,1,1)
iPos=2 \'går udfra at den skal springe G\'et over ;)
strOut=\"\"
For idx=lBound(larInFormat) To Ubound(larInFormat)
  strOut=strOut & Mid(strIn,iPos,larInFormat(idx)
  If idx<>Ubound(larInFormat) Then strOut=strOut & \",\"
  iPos=iPos+larInFormat(idx)
Next idx


/Jennemaan :o)

Jennemaan<-- Kanon besvarelse, men G\'et skal ikke springes over det skal med i posten.

okie... Så set iPos=1 inden du går i loopen :o)

/Jennemaan

btw.,, 1+16+6+6+8+2+4+1+1+4+19+4+1+1+3+3+1+1 = 82 og ikke 84 ;o)

/Jennemaan

Hvordan var det nu lige at jeg integrerer et sådant array?

Hej puller

Øhh så vidt jeg kan se har du en tekstfil, hvor hver ny post starter med enten G eller T.

Har du prøvet simpelthen at udskifte G og T med ,G og ,T sådan her.

Public Function ProcessString(argInputString as String)
Dim strOutputString as String

strOutputString = Replace(argInputString,\"G\",\",G\")
strOutputString = Replace(strOutputString,\"T\",\",T\")
ProcessString = strOutputString
End Function

Det virker ligesom lidt nemmere end at lave noget, der minder om kildekoden til Win2000 ;o)

Jeg håber det hjælper dig.

Venlig hilsen
JiveFive