Just nu i M3-nätverket
Jump to content

överflödiga radbytningar?


Badtant

Recommended Posts

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.

 

Link to comment
Share on other sites

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

 

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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>")

%>

 

Link to comment
Share on other sites

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

 

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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).

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...