Funktion som gör radbrytning efter vissta antal ord

3 svar · 430 visningar · startad av devotion 5 dec. 2007

devotionMedlem sedan jan. 20013 582 inlägg

Frågan5 dec. 2007 15:43#1

Hepp! :)

Jag har följande funktion som fungerar finfint...

function ReplaceBRTag(sText)

	dim re
	
	set re = new regexp
	re.global = true
	re.ignorecase = true
	re.pattern = "<br>"
	sText = re.replace(sText, vbcrlf & "12")
	
	ReplaceBRTag=sText
end function

Hur kompletterar man den med att bryta strängen efter 60 tecken samt att den enbart bryter efter hela ord?

Mvh
Henrik

devotionMedlem sedan jan. 20013 582 inlägg

5 dec. 2007 20:45#2

Hmmm...

Hittade den här när jag sökte på wf...
http://www.webforum.nu/showthread.php?p=995470#post995470

Men hur får jag ihop båda....

Red/

Sen fanns det lite här också...
http://www.webforum.nu/showthread.php?p=1081246#post1081246

Peter SMedlem sedan dec. 20025 483 inlägg

7 dec. 2007 11:42#3

function myFunc(myText)
 MAGIC = 60
 set re = new regexp
 re.global = true
 re.ignorecase = true
 re.pattern = "<br>"
 myText = re.replace(myText, vbcrlf & "12")
 re.pattern = "\r\n[^ ]+|[^\r\n ]+"
 set m = re.execute(myText)
 re.pattern = "^" & vbcrlf & "12$"
 r = 0
 str = "12"
 for each q in m
  if 3 + r + len(q) > MAGIC then
   r = 0
   str = str & vbcrlf & "12"
  elseif re.test(q) then
   r = 0
  end if
  str = str & q & " "
  r = r + 1 + len(q)
 next
 myFunc = str
end function

devotionMedlem sedan jan. 20013 582 inlägg

7 dec. 2007 11:45#4

Aha! ;)

Funkish... (y)

Mvh
Henrik