如题所述
set fso=createobject("scripting.filesystemobject")
set txt1=fso.opentextfile("1.txt",1)
cod1=txt1.readall
txt1.close
set txt2=fso.opentextfile("2.txt",1)
cod2=txt2.readall
txt2.close
if instr(cod2,cod1)>0 then
msgbox "æ¾å°äºå符:"&cod1
end if
ä¸æºç æµè¯å¯ç¨ã
åç®å½ä¸æ°å»ºä¸¤ä¸ªæ件â1.txtâãâ2.txtâãâ1.txtâåè¿æç´¢å ³é®è¯âä¸å½äººâï¼â2.txtâåå ¥å 容âææ¯ä¸å½äººï¼ä½ 好ãâã
å符串æ¯è¾ä¸åä»ä¹æï¼åªè¦ä½ åå¼å·éé¢çä¸è¥¿å®å ¨ä¸æ ·å°±ç¸çãæä¸ç¹ç¹ä¸åé½ä¸ä¼ç¸çã
æä»»ä½é®é¢è¿½é®å§ã追é®
set txt1=fso.opentextfile("1.txt",1)
cod1=txt1.readall
txt1.close
set txt2=fso.opentextfile("2.txt",1)
cod2=txt2.readall
txt2.close
if instr(cod2,cod1)>0 then
msgbox "æ¾å°äºå符:"&cod1
end if
ä¸æºç æµè¯å¯ç¨ã
åç®å½ä¸æ°å»ºä¸¤ä¸ªæ件â1.txtâãâ2.txtâãâ1.txtâåè¿æç´¢å ³é®è¯âä¸å½äººâï¼â2.txtâåå ¥å 容âææ¯ä¸å½äººï¼ä½ 好ãâã
å符串æ¯è¾ä¸åä»ä¹æï¼åªè¦ä½ åå¼å·éé¢çä¸è¥¿å®å ¨ä¸æ ·å°±ç¸çãæä¸ç¹ç¹ä¸åé½ä¸ä¼ç¸çã
æä»»ä½é®é¢è¿½é®å§ã追é®
两个æ件é½UTF-8ç¼ç ï¼æåè¿è¡è¿æ¯ä¸æ ·çä¹±ç ãä¸è¿è¿æ¯éå¸¸è°¢è°¢ä½ ã
温馨提示:答案为网友推荐,仅供参考
第1个回答 2012-11-21
你这貌似是两个问题,第一个问题模糊不清,不知道你说的是怎么个比较法?
第二个问题,VBS默认读取的是ANSI格式,如果被读取的文件带有unicode字符或者是特殊编码格式,请用 adodb.stream 对象进行操作!追问
第二个问题,VBS默认读取的是ANSI格式,如果被读取的文件带有unicode字符或者是特殊编码格式,请用 adodb.stream 对象进行操作!追问
问题一:vbs如何实现中中英文字符串的比较
如:1.txt文件有“中国人”;2.txt文件也有“中国人”,怎样才能实现,通读取1.txt中文件的内容,然后在2.txt文件进行查找
问题二:为什么vbs读取中文字符串出现乱码?
Set stm = CreateObject("Adodb.Stream")
yy=stm.readtext
msgbox yy‘使用readtext只能一次读取多少个字符,但不能一次读取一行,小弟在此还请各位高手指教,在此表示感谢!