opdel en string

Liste = "255/45555"

arrTekst = Split(Liste, "/")

Response.Write arr(0)
Response.Write arr(1)

Var det det, du tænkte på?

Dim Liste, arrTekst

Liste = "255/45555"

arrTekst = Split(Liste, "/")

Response.Write arrTekst(0)
Response.Write arrTekst(1)

left(liste, 3)
Right(liste, 5)

you can also use these functions

mid
inStr

Hvad er arrTekst?..Array?

Dvs. at der i arrTekst(0) nu er 255 og i arrTekst(1) er 45555 ??

Ærklære man et array ved bare at skrive : Dim arrTekst ??

Jeg prøver lige mens du svare  :o)

flg kode uddrager de 3 første tegn i Felt4:

Dim Streng As String
Streng = Felt4
Felt1 = Left(String:=Streng, length:=3)

Ska du have de sidste udskifter du Left med Right

Løsning=left(streng,3)& mid(streng, 4,5)

celal ---> Ja, det er jo den måde, man plejer at gøre det på.
Men du kan også bruge left/mid/right-funktionerne som beskrevet. Dog forudsat at teksten på hver side af "/" altid har samme længde, og det ved jeg ikke, om den har.

Du behøver ikke erklæringerne, men det er god skik.

Ja, du kan selvfølgelig også bruge left/mid/right, men det kræver så, at du kombinerer dem med instr, hvis teksten har variende længde.

Oasen, Split som du bruger, hvad er det for en funktion, er det en du selv har lavet, for jeg kan ikke bruge den (Bruger Access 97)

Terry og mugs, problemmet er også at tekstens position og længde er ikke fast, det kunne lige så godt havde været 67687/87.

Er der nogen der har en funktion eller kan lave en funktion til mig?

Oasen din Split funktion virker ikke

Terry, hvordan bruger jeg Instr i mit til fælde?

Funktionen har jo ikke noget med din database at gøre. Du trækker en streng ud, og udskriver hvad der står på begge sider af "/".
Det virker fint, og det er ikke noget jeg selv har "opfundet"!

Prøv at lave et linieskift, så kan du se, at det virker:

Response.Write arrTekst(0) & "<br>"
Response.Write arrTekst(1)

Oasen, er det mig eller er du i det forkerte rum? Er det ikke ASP du sidder og fyre af? Det er Access jeg sidder og arbejder med, jeg er ikke helt sikker på om det er det samme vi snakker om

Left, Mid og Right er også ASP.
Hvis du har et felt i din DB indeholdende "67687/87", skal dette udskrives som "67687" og "87" i brugerens browser.
Er det korrekt forstået?

Terry, Jeg prøver at bruge Instr på denne måde:

StrCount = InStr(0, Nummerg, "/", vbTextCompare)

Men jeg får en fejl, hvad er der galt med den?

Browser????? Jeg bruger Access og ikke ASP, Jeg sidder og koder i VBA i Access.

Ja, ja - bare du selv ved, hvad du vil...

Tager højde for forskellige strenglængder og bruger "/" som adskillelse:
Dim varStreng, varResult1, varResult2 As String
varStreng = "255/45555"
varResult1 = Left$(varStreng, InStr(varStreng, "/") - 1)
varResult2 = Mid$(varStreng, InStr(varStreng, "/") + 1)
MsgBox varResult1
MsgBox varResult2

denne kode er afprøvet i Access97 og fungerer perfekt:

Private Sub felt1_BeforeUpdate(Cancel As Integer)
Dim SearchChar As String
Dim SearchString As String
Dim Streng As String
SearchChar = "/"
SearchString = felt1
Streng = felt1
felt2 = Left(String:=Streng, length:=(InStr(1, SearchString, SearchChar, 1) - 1))
End Sub

Først defineres hvilket tegn der adskiller delene i strengen:
SearchChar = "/"

Derefter i hvilket felt der skal søges:
SearchString = felt1

Så defineres strengen i funktionen der uddrager x antal tegn:
Streng = felt1

felt 2 sættes = beregningen af de uddragne tegn. Det sidste tegn i funktionen (-1), gør at / ikke kommer med i felt2

Jeg har brugt denne kode:

Nummerg = Rst.Fields("NummergoglNr")
StrCount = InStr(Nummerg, "/")
If StrCount <> 0 Then
  Konsulent = Left(Nummerg, StrCount - 1)
  Leng = Len(Nummerg)
  OrdreNo = Right(Nummerg, Leng - StrCount)
End if