function cutstr(thestr,strlen) dim l,t,c l=len(thestr) t=0 for dxy=1 to l c=Abs(asc(Mid(thestr,dxy,1))) if c255 then t=t+2 else t=t+1 end if if t=strlen then thev=left(thestr,dxy) exit for else bu=strlen-t for bui=1 to bu strbu=" " strbuall=strbuall&strbu next thev=thestr&strbuall strbu="" strbuall="" end if next cutstr=thev end function % '============================ ...[ 查看全文 ]
----------自动替换版---------- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" <HTML <HEAD <TITLE New Document </TITLE <SCRIPT LANGUAGE="JavaScript" var staus ; var oRange; var objTimer; var objTimer1; var objTimer2; var sBookMark; <!-- function selectall(objAll,OBJSingle){ alert(objAll.checked); for (var i=0;i<OBJSingle.length;i...[ 查看全文 ]
/* author:amjn date:2003-03-28 version:1.0 function:替换text,ntext列中的字符串(不支持中文) */ declare @ptr varbinary(16) declare @amjnId int declare @Position int,@len int set @len=datalength('ILOVEHJL') declare wux_Cursor scroll Cursor for select textptr([Name]),[amjnId] from USA201 for read only open wux_Cursor fetch next from wux_Cursor into @p...[ 查看全文 ]
EditPlus的查找,替换,文件中查找支持以下的正则表达式: Expression Description \t Tab character. \n New line. . Matches any character. | Either expression on its left and right side matches the target string. For example, “a|b” matches “a” and “b”. [] Any of the enclosed characters may match the target character. For example, “[ab]” matches “a” and “b”. “[0...[ 查看全文 ]