22. marts 2002 - 13:22Der er
3 kommentarer og 1 løsning
Positioner for flere tegn i rækkefølge, sorteret (Lav < Høj)
Hej.
Jeg har brug for at den funktion finder flere positioner for både "t" og "e", og at positionerne kommer i rækkefølge så den det laveste tal er først og til sidst ender med det højeste. Jeg har brugt InStr for at finde positioner. Men jeg ved ikke hvordan jeg skal sammensætte det, så den returnerer flere positioner, istedetfor kun én position. Altså positionerne for de 2 tegn i rækkefølge
if Int(kChr) = Int(InStrRev(Tekst, Tegn1)) OR Int(LinkChr) = Int(InStrRev(Tekst, Tegn2)) then A_Start = Len(Tekst) else A_Start = EndPos end if Positioner = EndPos
Loop
End Function %> </Head> <Body>
<% =Positioner("Dette er en test. Tester ligenu.") %>
Det er ærgeligt at du har lukket ? da jeg jo lige har lavet det du skal bruge - men her har du en som returnere positionerne i string adskildt af komma. Den checker for space og komma men kan udvides med flere tegn.
<% Dim strPos, LastP
function Min(V1, V2) ' Returner den mindste hvis den er > 0 Min = V1 if (V2 > 0) and ((V2 < V1) or (V1 = 0)) then Min = V2 end if end function
function Add(Value, P) ' Gem position og æd tegn indtil P og returner resten LastP = LastP + P if (strPos <> "") then strPos = strPos & "," & LastP else strPos = P end if Add = Mid(Value, P + 1) end function
sub FindPos(Value) ' Find positionerne for forskellige tegn i tekst og returner positionslisten i strPos LastP = 0 strPos = "" do while Value <> "" P = Min(inStr(Value, " "), 0) ' Response.Write(P & "=") ' Debug P = Min(inStr(Value, ","), P) ' Response.Write(Value & "=" & P & "<br>") ' Debug ' Udvides her med flere 'P = Min(inStr(Value, "a"), 0) 'P = Min(inStr(Value, "b"), 0) if (P > 0) then Value = Add(Value, P) else Value = Add(Value, Len(Value)) end if loop end sub
Call FindPos("Test denne, tek,st for kommafejl.") Response.Write(strPos) %>
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.