jhhaitun 发表于 2010-5-31 15:42:15

请帮忙解决一个“字串显示乱码”的问题（QTP）

写了段程序，目的是对比2篇word文档中，字串是否相符的问题，代码如下

arg4="E:\4110language\Help doc\Fr_02.doc"
arg5="E:\4110language\Help doc\Fr_02m.doc"
wait 1
String2=list(arg4,arg5)
wait 1
msgboxString2

Function list(arg4,arg5)
   Dim fso,file1,file2
   Set fso=createobject("Scripting.FilesystemObject")
   Set file1=fso.opentextfile(arg4,1,false)
   Set file2=fso.opentextfile(arg5,1,false)
ss=";"
While( not file1.atendofline)   and(notfile2.atendofline )
tmp1=file1.ReadLine
tmp2=file2.ReadLine
IfStrComp ( tmp1, tmp2 ,0)   <> 0 then
ss=ss+tmp2
End If
Wend
file1.Close
file2.Close
list=ss
End Function

结果字串显示乱码
正确的应该是;Dreheyunp

jhhaitun 发表于 2010-5-31 15:42:35

请高手务必帮忙啊？

TIB 发表于 2010-5-31 15:57:17

最好用Word的COM接口编程来做

jhhaitun 发表于 2010-6-1 09:11:16

回复 3# 的帖子

非常感谢你的回复
不过，没接触过word的com接口编程，所以还是不知道怎么做。。。
能详细点么？？
页: [1]
查看完整版本: 请帮忙解决一个“字串显示乱码”的问题（QTP）