Hej

Jag läser in en textfil i Access via ett hemsnickrat program i VB

Nu är det så att textfilen har ändrats och det har kommit till en massa + här och där
Jag behöver byta ut + mot 0 innan jag läser in den i Access
Textraden är 356 tecken och jag läser in varje rad i en variabel innan
jag splittar upp den, typ så här

Line Input #1, rad 'läser rader

'läser textfilen
BESTALLARID = Left$(rad, 10): fsnr = Mid$(rad, 3, 10): posttyp = Mid$(rad, 13, 1): TRPTORNR = Mid$(rad, 14, 6)
AVSKTR = Mid$(rad, 20, 6): linjetyp = Mid$(rad, 26, 1): linjekod = Mid$(rad, 27, 3): riktning = Mid$(rad, 30, 1): avrnr = Mid$(rad, 31, 9) o.s.v

Avrtabell:
AVRLIST.AddNew 'lägger till ny post
AVRLIST("FsNr") = fsnr: AVRLIST("posttyp") = posttyp: AVRLIST("trptornr") o.s.v.

Probelmet är alltså att jag måste ändra + till 0 innan den läses in Acces

Någon som har tips


/Björn

Det du söker är förmodligen NyaStr = Replace(strängen,"+","0")

Sök på Vb6 och Replace

Jag har VB 4

Verkar inte funka??

/Björn

Aj Aj det blir struligare.
Du får leta upp dina "+" Med Functionen InStr
<code>
'Fritt ur minnet
Dim pos As Long
pos = InStr(dinStr,"+")
Do until pos = 0
Mid$(dinStr,pos,1) = "0"
pos = InStr(dinStr,"+")
Loop
</code>

Tack så mycket för hjälpen!
Funkar perfekt!!