|
一段沒(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
|