Jeg har lidt problemer med at få det til at virke...
Men MANGE tak for koden...
Jeg pusler lidt med det på søndag, hvis jeg ikke får det til at virke,
håber jeg det er i orden at jeg stiller dig et par spørgsmål..
-Rex
"Bjarke Walling Petersen" <bwp@bwp.dk> skrev i en meddelelse
news:3af806f3f788d64aee2073734f7f6926.42843@mygate.mailgate.org...
> Rex skrev:
> > Helt præcist.:
> >
> > Å<Efternavn>&<Fornavn>Nogle mellemrummer(resten af navnet, Ikke fast
antal)
> > <Adresse(starter på fast plads)>nogle mellemrum(resten af adressen)
> > <7 cifret tal,Starter på fast plads(hvor de sidste 4 cifre er
> > postnummeret)><enter>
> > *<otte cifret tal><cpr nr.><nogle tal><Enter>
> >
> > -Rex
>
> Det svar jeg skrev i går kunne jeg ikke sende via TDC's newsservere - så
> nu sender jeg det via newsgate.dk.
>
> Okay ... her har du en kode, som virker hvis personen ikke har et
> mellemnavn. Jeg er ikke helt sikker på hvor mellemnavnet skrives henne
> nemlig. Den rutine jeg har lavet søger nemlig efter det første mellemrum
> i første linie og siger at navnet er før dette ... hvis det er sådan at
> mellemnavnet er efter et mellemrum efter fornavnet, så vil det jo ikke
> virke. Jeg kan så i stedet lave det lidt om, hvis jeg kender den præcise
> position adressen starter på - så behøver den ikke at søge efter det
> første mellemrum. Grunden til den ikke søger efter sidste mellemrum i
> første linie er at der jo med stor sandsynlighed er et mellemrum i
> adressen.
>
> Jeg har foresten lige gjort så den resetter txtData og sætter fokusen på
> denne efter et input. Hvis man nu skal indlæse flere kort efter
> hinanden, behøver man ikke selv at fjerne hvad der er skrevet i txtData
> imellem hver indlæsning.
> Forudsat du har fem tekstbokse: txtData (hvor indputtet bliver taster),
> txtNavn, txtAdresse, txtPostNr, txtCprNr ... så indsæt følgende kode
> event-rutine i din forms kode:
>
> Private Sub txtData_Change()
> Dim pos As Long
> Dim txt As String
> Dim lin As String
> txt = txtData.Text
> pos = InStr(txt, vbCrLf)
> If pos <> 0 Then
> lin = Left$(txt, pos - 1)
> txt = Mid$(txt, pos + 2)
> pos = InStr(lin, " ")
> If pos > 2 And Left$(lin & " ", 1) = "Å" Then
> txtAdresse.Text = Trim$(Mid$(lin, pos))
> lin = Mid$(lin, 2, pos - 2)
> pos = InStr(lin, "&")
> If pos = 0 Then
> txtNavn.Text = lin
> Else
> txtNavn.Text = Mid$(lin, pos + 1) & " " & Left$(lin, pos
> - 1)
> End If
> End If
> pos = InStr(txt, vbCrLf)
> If pos <> 0 Then
> lin = Left$(txt, pos - 1)
> txt = Mid$(txt, pos + 2)
> If Len(lin) = 7 Then
> txtPostNr.Text = Mid$(lin, 4)
> End If
> pos = InStr(txt, vbCrLf)
> If pos <> 0 Then
> lin = Left$(txt, pos - 1)
> If Len(lin) > 19 And Left$(lin & " ", 1) = "*" Then
> txtCprNr.Text = Mid$(lin, 10, 6) & "-" & Mid$(lin,
> 16, 4)
> End If
> txtData.Text = ""
> txtData.SetFocus
> End If
> End If
> End If
> End Sub
>
> Hvis du har problemer, blot sig til.
>
> Mvh. Bjarke
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG