Hejsa

Hur skall man få vb att ignorera kommatecken och inte bryter av en textsträng med att hoppa till ny rad.

/Tobbe

Hej
Nu får du allt förklara närmare , bryter rad ? Qee

mvh
Sven

Hej
Om jag öppnar en textfil i t,ex en textbox som är satt till multiline så
byter textsträngen rad vid ett kommatecken.
ex
Svensson, Arne blir
Svensson,
Arne

Och om man skall t,ex (insert into) till databasen från textfilen man använder där all information är skriven på en rad, så blir det lite fel i databasen.

/Tobbe

Hej
Jag försökte göra det du skriver med Text1 Multiline True
Jag gjorde detta experiment med Svensson,Arne
Det blev inget radskifte.

Option Explicit
Private Sub Command1_Click()
Dim tmpStr As String, FileNum As Long
FileNum = FreeFile
Open "C:\Komma.txt" For Input As #FileNum
Line Input #FileNum, tmpStr
Text1.Text = tmpStr
Close #FileNum
End Sub

Du gör förståss på annat sätt ?
Kom igen det här måste utredas.

Mvh
Sven

Det är just detta Line Input istället för Input som gör att det inte bryter vid komamtecken.

Hej här kommer koden

Private Sub CmdUpdate_Click()
On Error Resume Next
MousePointer = vbHourglass
Dim iFil As Long
Dim tmpStr As String

Set cGlobal = New Collection

'öppnar filen
iFil = FreeFile
Open "C:\Regtest\Orebro.txt" For Input As iFil

Do Until EOF(iFil)
DoEvents
Lblcounter.Caption = Lblcounter.Caption + 1

'läser rad för rad
Line Input #iFil, tmpStr 'läser in värdt i var tmpStr
'kontrollerar att raden inte är kommenterad, att det inte är en radbrytning eller tom
If Not (Left(Trim(tmpStr), 1) = "'" Or tmpStr = vbCrLf Or Trim(tmpStr) = "") Then

Text1(0).Text = Mid(tmpStr, 6, 6)
Text1(1).Text = Mid(tmpStr, 176, 24)
Text1(2).Text = Mid(tmpStr, 34, 36)
Text1(3).Text = Mid(tmpStr, 70, 27)

Dim dbs As Database
Dim SQL As String
Set dbs = OpenDatabase("C:\RegTest\DBTestReg.mdb", False)

SQL = "INSERT INTO Regnr ,Name,Streetname,Zipcode,city" & _
" values ('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Text1(3).Text & "')"
dbs.Execute SQL
dbs.Close
Set dbs = Nothing
End If
Loop

Close #iFil
MousePointer = vbNormal
MsgBox "Överföring till Access databasen är genomförd"
Exit Sub

End Sub

Textfilen som läses in ser ut så här typ.
M02AAR45619980734 SVENSSON, ARNE ARNEGATAN237653ÖREBRO
CA: 250 TECKEN LÅNG


Hälsningar
Tobbe

Hej och tack

Det var just de där med Line Input som fixade till detta.

/Tobbe :-)

Input tycker att kommatecken är en fältavgränsare, använd LineInput om du vill läsa rader, eller GET om du vill läsa ett bestämt antal tecken.

/johan/