一段沒(méi)有空格的長(zhǎng)英文，系統(tǒng)會(huì)認(rèn)為它是一個(gè)單詞，為了保持單詞的完整性不會(huì)自動(dòng)換行。其實(shí)這種情況不處理也可以，因?yàn)樵趯?shí)際應(yīng)用中除了測(cè)試或有人搗亂不會(huì)出現(xiàn)這種情況，不過(guò)為了以防萬(wàn)一吧，我?guī)讉�(gè)月前寫(xiě)了下面這個(gè)函數(shù)，只是一種權(quán)宜之計(jì)，為了對(duì)付惡意破壞者。
'-------------------------------------------------
'
'function name: autowrap
'
'
'description : 解決長(zhǎng)英文不自動(dòng)換行的問(wèn)題
'
'parameters :a_strSourceString :要轉(zhuǎn)換的源字符串
'
'a_intSize , 每行寬度
'
'author: bigeagle
'
'date :2000/4/17
'
'history:2000/4/17 : version 1.0
'
'-------------------------------------------------------
 function AutoWrap(a_strSourceString , a_intSize)
 
 dim l_strDestString
 
 '如果內(nèi)容中有回車則退出
 'if instr(a_strSourceString , chr(13) + chr(10) ) <> 0 then
 ' AutoWrap = replace(a_strSourceString , chr(13) + chr(10) , "<br>")
 ' exit function
 'end if

 'check if valid parameters
 call assert(vartype(a_strSourceString) = 8 , "AutoWrap" , "a_strSourceString must be a string")
 call assert(vartype(a_intSize) = 2 , "AutoWrap" , "a_intSize must be a integer")
 
 
 dim i 
 if a_intSize >= len(a_strSourceString) then
l_strDestString = a_strSourceString
 else
'l_strDestString = left(a_strSourceString , a_intSize) 
for i = 1 to len(a_strSourceString) step a_intSize
if instr( i , mid(a_strSourceString , i , a_intSize) , chr(32) ) = 0 _
 or instr( i , mid(a_strSourceString , i , a_intSize) , chr(13)+chr(10) )then
 l_strDestString = l_strDestString + " " +mid (a_strSourceString , i + 1 , a_intSize)
else
 l_strDestString = l_strDestString + mid(a_strSourceString , i + 1 , a_intSize) 
end if 
next
 end if
 
 call print("[AutoWrap:]return value is : '" + l_strDestString + "'")
 l_strDestString = replace(l_strDestString , chr(13) + chr(10) , "<br>")
 AutoWrap =l_strDestString
 end function