Splitte en tekst

Hvis du ikke ved om der står "1morten" eller "12morten" eller for den sags skyld "123morten" .
Hvordan skal programmet så kunne skældne?
Den eneste løsning jeg ser er hvis det konsekvent er de første tal du vil have væk. Og det altid er tal?
Så kan du bruge regulære udtryk

Set RegularExpressionObject = New RegExp

With RegularExpressionObject
.Pattern = "\d*"
End With

Rs("bruger") = RegularExpressionObject.Replace(rs("bruger"), "")
Set RegularExpressionObject = nothing

Prøv med det der :)

Det er ALTID tal. Men som sagt om der står 1morten 100203morten vides ikke.

Så vil du simpelthen lave en regexp på det?

den skulle gerne fjerne alle tal (1 gang) ... Hvis brugeren hedder "morten47" og strengen derfor hedder:

10234morten47

vil den fjerne 47. (tror jeg)

Kan ikke få det til at virke...
Koden ser således ud:


        Set rs_bruger = my_conn.Execute("SELECT * FROM budbruger WHERE id = " & Request.QueryString("id"))
        Set RegularExpressionObject = New RegExp

        With RegularExpressionObject
        .Pattern = "\d*"
        End With

        Rs_ret("bruger") = RegularExpressionObject.Replace(rs_bruger("brugernavn"), "")       
        Set RegularExpressionObject = nothing

        Response.Write "<form method='post' action='indstillinger.asp?action=rediger&id=" & Request.QueryString("id") & "&aendre=1'><table width='200' border='1' cellspacing='1'>"
          Response.Write "<tr>"
        Response.Write "<td>Fornavn:</td>"
        Response.Write "<td><input name='fornavn' type='text' value='" & Rs_ret("bruger") & "'></td>"

Nu kan jeg godt nok ikke RegExp, så her er noget almindeligt kode:

navn = "123morten47" ' test streng
for i = 1 to len(navn)
  if IsNumeric(mid(navn, i, 1)) = false then
    navn = mid(navn, i)
    exit for
  end if
next

response.write navn ' udskriver: morten47

Tallene skal ikke fjernes når man indsætter det i databasen, men kun når den bliver trukket ud.

Prøv det her:
dim navn

      navn = RegularExpressionObject.Replace(rs_bruger("brugernavn"), "") 

...

        Response.Write "<td><input name='fornavn' type='text' value='" & navn & "'></td>"

Jamen thesurfer det virker jo...

Men er det mindre "usikkert" ikke at bruge regexp til dette?

Nu virker metoden også med regexp... Hvis i begge ligger et svar, så får i begge point. Men regner med jeg bruger regexp, da jeg egentlig skal bruge en del regexp på sitet.

Nej, det er ikke "mindre" usikkert.. begge metoder virker..

Du kan også tilføje dette, efter "next":

if IsNumeric(navn) = true then
' navnet består KUN af tal..
' dvs, test strengen kunne have været: "12345"
' så vil navnet være "12345"..
end if

En slags sikring mod "nullængde"..

Det var min tanke, det samme:

Har du defineret det array Rs_ret ? Og bruger du det som array. Ellers:

Rs_ret = RegularExpressionObject.Replace(rs_bruger("brugernavn"), "")
...
Response.Write("<td><input name=""fornavn"" type=""text"" value=""" & Rs_ret & """></td>")

hmm.. "Men er det mindre "usikkert" ikke at bruge regexp til dette?"..

Dvs: Er det mere sikkert at bruge regexp?

Resultet vil være det samme, når man har rettet det med "tal-bogstaver-tal" kombination/koden i regexp.

Koden fra 27/04-2005 20:01:15 accepterer f.eks. "morten47". Som legende.dk skriver i 27/04-2005 19:53:32, tror jeg at RegExp vil fjerne "47" i "morten47"..

Jeg tror at "Rs_ret" er recordset'et, til den SQL der retter koden..

gør den det ?

fjerner den 47 fra morten47 ?

legende.dk> Jeg har lige lavet en test.. den fjerner ikke 47 fra morten47.

så er den jo smuk ?

Det gør det nemlig ik nej... Så det er bare perfekt! Tak for hjælpen.

Du skal lige markere navn i boksen til venstre, inden du klikker på Accepter-knappen..

Ja det ved jeg, men du har jo ikke lagt et svar endnu

Så lægger jeg da bare et svar :-)