获取文本本内容出现的问题【已解决】

FateSky

回复 14# afan


    怎么样？能取出来吗？

afan

回复 16# FateSky


    可以，用二进制读取

FateSky

回复 17# afan


    把代码贴出来呗！谢谢了！跟你学习一下！

131738

回复  afan


    把代码贴出来呗！谢谢了！跟你学习一下！
FateSky 发表于 2011-12-28 21:37

另存为 ANSI 可以读取。。。

FateSky

回复 19# 131738


    具体点呗，关于二进制这，我真的是不太懂，谢谢了！

afan

#include <String.au3>
#include <Array.au3>

Local $sFileRd = 'Strategy_15.dat'
Local $sFileWt = '2.txt'

Local $FO = FileOpen($sFileRd, 16)
Local $Str = BinaryToString(FileRead($FO), 2)
FileClose($FO)
If $Str = '' Then Exit MsgBox(48, '问题', '未读取到任何字符')

Local $a = _StringBetween($Str, '<Name>', '</Name>')
If @error Then Exit MsgBox(48, '问题', '未匹配到')
Local $sOut = _ArrayToString($a, '/')

Local $FO1 = FileOpen($sFileWt, 2)
FileWrite($FO1, $sOut)
FileClose($FO1)

FateSky

回复 21# afan


    谢谢！我先试试！

131738

回复 21# afan

$w = FileOpen ( "F:\Strategy_15\Strategy_15.dat", 32)
我测试 16 不行，用 32 读取了。。。

afan

回复  afan

$w = FileOpen ( "F:\Strategy_15\Strategy_15.dat", 32)
我测试 16 不行，用 32 读取了。 ...
131738 发表于 2011-12-28 21:47

    是的，直接用小编码读取也可以，还更简单~ 呵呵

131738

回复 22# FateSky

#include <String.au3>
#include <Array.au3>
$w = FileOpen ( "F:\Strategy_15\Strategy_15.dat", 32)
$file = FileRead($w)
If $file = '' Then Exit MsgBox(48, '问题', '未读取到任何字符')
$file3 = FileOpen("F:\Strategy_15\2.txt", 2)
$a = _StringBetween($file, '<Name>', '</Name>')
$str = _ArrayToString($a, @CRLF)
FileWrite($file3, $str)
FileClose($file3)

比 afan 差多了。。。。

FateSky

回复 21# afan


    谢谢！我先试试！我想问一下，为什么这个文档需要这样的转换？

131738

回复 22# FateSky

怎么样，告诉你请教 afan 没错吧。。。。一句道歉值得吧！

FateSky

回复 27# 131738


    恩，当然，我并不是有意的，因为那是我发的第一篇帖子，有些处理不太清楚，所以就闹笑话了，呵呵，对了，那个为什么需要进制之间的转换才能取出来呢？

131738

回复  131738


    具体点呗，关于二进制这，我真的是不太懂，谢谢了！
FateSky 发表于 2011-12-28 21:41

所谓 [ 另存为 ANSI 可以读取 ] 就是记事本打开你的附件，选 [ 另存为 ]菜单 编码选 ANSI 保存。。。。

FateSky

回复 29# 131738

哦，原来是这样，看来我得向你们请教更多的东西，才能弥补我的不足啦，呵呵。