本帖最后由 jingygr 于 2012-7-9 12:50 编辑
我想把下面的这段代码整理成一行(因为我要保存在ini文件中,ini文件不支持换行,所以我只能把它整理成一行)。
我用Q1152405Q替换</p>,到时方便还原成换行的。
现在遇到的问题是我找不出下面的换行符是什么。如果我删除所有空格,是可以整理成一行,但英文间的空格也会被隔开。
请问一下,怎么办?<TD style="WIDTH: 100%" class="txt_4 wordBreakNormal job_detail " colSpan=6><STRONG>职位描述:</STRONG><BR>
<DIV style="PADDING-BOTTOM: 30px">
<P>任职要求:</P>
<P>1、高中以上文化程度,基础英语会话能力,户籍不限</P>
<P>2、至少一年以上4星、5星酒店或高端俱乐部调酒师工作经验</P>
<P>5、zhe li shi ying wen</P>
<P>3、通晓酒单全部内容;熟悉酒吧服务全过程、规定和要求</P>
<P>4、工作主动、认真负责</P>
<P>5、zhe li shi ying wen</P>
<P>5、zhe li shi ying wen</P>
<P>5、zhe li shi ying wen</P>
<P>5、zhe li shi ying wen</P>
</DIV></TD></TR>
我现在的代码(把上面的代码保存成txt.txt):$ohtml=FileRead(@ScriptDir&"\txt.txt")
$exp = StringRegExp($ohtml, "(?ms)职位描述:</STRONG><BR>(.*?)</TD>", 3)
$err = @error
If @error = 0 Then
$GangWeiMiaoShu = $exp[0]
Else
$GangWeiMiaoShu = "Noo"
EndIf
If $err = 0 Then
$GangWeiMiaoShu = $exp[0]
$GangWeiMiaoShu = StringStripWS($GangWeiMiaoShu, 3)
$GangWeiMiaoShu = StringStripCR($GangWeiMiaoShu)
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, "<br>", "Q1152405Q")
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, "</br>", "Q1152405Q")
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, "</ br>", "Q1152405Q")
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, "</P>", "Q1152405Q")
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, "</DIV>", "Q1152405Q")
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, "\r", "Q1152405Q")
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, "\n", "Q1152405Q")
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, "\t", "Q1152405Q")
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, "\r\n", "Q1152405Q")
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, "Q1152405QQ1152405Q", "Q1152405Q")
$GangWeiMiaoShu = StringReplace($GangWeiMiaoShu, " ", "");
$GangWeiMiaoShu=StringStripCR($GangWeiMiaoShu)
$GangWeiMiaoShu = StringRegExpReplace($GangWeiMiaoShu, "(\<.[^\<]*\>)", "")
;MsgBox(0,"",$GangWeiMiaoShu)
Else
$GangWeiMiaoShu = "-"
EndIf
MsgBox(0,"",$GangWeiMiaoShu)
|