Just nu i M3-nätverket
Gå till innehåll

överflödiga radbytningar?


Badtant

Rekommendera Poster

Magnus Ahlkvist

Do until left(texten,1)<>VbCrLF
texten=right(texten,len(texten)-1)
Loop
Do until right(texten,1)<>VbCrLf
texten=Left(texten,len(texten)-1)
Loop

 

 

--

En röst talade till mig och sade:

”Le och var glad, ty det kunde vara värre”.

Så jag log, och jag var glad.

Och det blev värre.

 

Länk till kommentar
Dela på andra webbplatser

Hej!

 

Nedanstående Regular Expression funktion borde göra susen.

 

Function TrimLB(ByVal str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^\s\n|\s\n$"
'alternativt
'regEx.Pattern = "^\s\n|\s*$"
regEx.IgnoreCase = True 
regEx.Global = True
TrimLB = Trim(regEx.Replace (str, ""))
End Function

 

Mvh

 

Jimmy

 

 

Länk till kommentar
Dela på andra webbplatser

ok, testar detta.

men som jag tycker det ser ut så tar väll det där bort alla radbrytningar?

jag vill bara ta bort dom som ligger i början och slutet!

 

[inlägget ändrat 2003-01-18 15:33:16 av Badtant]

Länk till kommentar
Dela på andra webbplatser

men varför funkar inte det här??

 

<%

mess=RecSet("mess")

 

Do While Left(mess,1) = VbCrLf

mess=Right(mess,Len(mess)-1)

Loop

 

Do While Right(mess,1) = VbCrLf

mess=Left(mess,Len(mess)-1)

Loop

 

mess=Replace(mess,VbCrLf,"<br>")

%>

 

Länk till kommentar
Dela på andra webbplatser

Den tar endast bort i början och på slutet av texten. tecknet ^ anger början av text, $ anger slutet av text.

Jag har provat funktionen med lite olika strängar ;).

 

/Jimmy

 

 

Länk till kommentar
Dela på andra webbplatser

det funkade fast den tar bara bort en radbrytning.. om det är flera på rad så funkar det inte!

 

[inlägget ändrat 2003-01-18 23:18:31 av Badtant]

Länk till kommentar
Dela på andra webbplatser

För det första så är vbCrLf två tecken. Om man vill köra loopvarianten så borde nedanstående funka:

Function TrimLB2(ByVal str)
Do while left(str,2) = vbCrLf
	str=mid(str,3)
Loop

Do while right(str,2) = vbCrLf
 str=left(str,len(str)-2)
Loop
TrimLB2 = str
End Function

 

Länk till kommentar
Dela på andra webbplatser

Det gör det visst (om du inte skickar in null värde så klart). Vad får du för felmeddelande? Type Mismatch?

 

Man kan använda right(str,len(str)-2) i stället för mid(str,3). Det blir samma resultat).

 

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...