Replace alt indtil #

Skal jeg forstå det på den måde, at du vil ha' strengen:

"<center>18-10-2002 04:54 cowman (#25853)</center>"

udskiftet med

";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;25853;;;;;;;;;;"

???

I så fald kunne jeg da godt tænke mig at høre, hvad du kunne bruge det til! ;)

Og så skal jeg også gerne lave det!

Mvh,

Thomas Regin.

Nej nej der skal bare være et ; foran 25853 og alle de efterfølgende linier.

Alle linier er opbygget på samme måde, men dato, klokken, navnet og nummeret varierer!

Det jeg gerne ville have til sidst var følgende:

;25853;23522;24245;32452;21412

Altså så der kun stod numre tilbage, som så kunne bruges til et Array!

Kan du hjælpe mig der???

Ja, det kan jeg sagtens! ;)

Værsgo'

strString = "<center>18-10-2002 04:54 cowman (#25853)</center>"
if instr(strString,"#") > "0" then
    myNewString = mid(strString,instr(strString,"#"),5)
    myNewString = Replace(myNewString,"#",";")
    Response.Write myNewString
End If

Mvh,

Thomas Regin.

Hvad så hvis det tallet varierer mellem 4 og 5 tegn???

Hehe.. Det tænkte jeg nok du ville spørge om! ;)

Øjeblik!

Og lige en ting til strString er meget længere:

strString = "<center>18-10-2002 04:54 cowman (#25853)</center><center>18-10-2002 16:54 Sol (#2525)</center><center>18-10-2002 21:54 Vigo (#44211)</center>"

Håber du også har et svar på den :-)

Og tak for hjælpsomheden!

Nu kan du skrive ligeså mange(og få) tal som du orker:

<%
strString = "<center>18-10-2002 04:54 cowman (#25852344273483923)</center>"
if instr(strString,"#") > "0" then
    getEndPar = instr(strString,")")
    getEnd = left(strString,getEndPar-1)
    myNewString = mid(getEnd,instr(getEnd,"#"))
    myNewString = Replace(myNewString,"#",";")
    Response.Write myNewString
End If
%>

Thomas.

Kan du ikke bare dele strString op i et array, som du så sender til en funktion?

Vær så artig:

myString = split("<center>18-10-2002 04:54 cowman (#25853)</center><center>18-10-2002 16:54 Sol (#2525)</center><center>18-10-2002 21:54 Vigo (#44211)</center>","</center>")
for each x in myString
    call getID(x)
Next
function getID(strString)
if instr(strString,"#") > "0" then
    getEndPar = instr(strString,")")
    getEnd = left(strString,getEndPar-1)
    myNewString = mid(getEnd,instr(getEnd,"#"))
    myNewString = Replace(myNewString,"#",";")
    Response.Write myNewString
End If
End Function

Jeg takker mange gange, jeg tror det kommer til at virke når jeg lige får det rettet helt til resten af sitet.

Tak for hjælpen og din tålmodighed!

Jamen, selv tak! :)

Thomas.