回复 14# afan
怎么样？能取出来吗？
回复 16# FateSky
可以，用二进制读取
回复 17# afan
把代码贴出来呗！谢谢了！跟你学习一下！
回复afan
把代码贴出来呗！谢谢了！跟你学习一下！
FateSky 发表于 2011-12-28 21:37 http://www.autoitx.com/images/common/back.gif
另存为 ANSI 可以读取。。。
回复 19# 131738
具体点呗，关于二进制这，我真的是不太懂，谢谢了！
#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)
回复 21# afan
谢谢！我先试试！
回复 21# afan
$w = FileOpen ( "F:\Strategy_15\Strategy_15.dat", 32)
我测试 16 不行，用 32 读取了。。。
回复afan
$w = FileOpen ( "F:\Strategy_15\Strategy_15.dat", 32)
我测试 16 不行，用 32 读取了。 ...
131738 发表于 2011-12-28 21:47 http://www.autoitx.com/images/common/back.gif
是的，直接用小编码读取也可以，还更简单~ 呵呵
回复 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 差多了。。。。
回复 21# afan
谢谢！我先试试！我想问一下，为什么这个文档需要这样的转换？
回复 22# FateSky
怎么样，告诉你请教 afan 没错吧。。。。一句道歉值得吧！
回复 27# 131738
恩，当然，我并不是有意的，因为那是我发的第一篇帖子，有些处理不太清楚，所以就闹笑话了，呵呵，对了，那个为什么需要进制之间的转换才能取出来呢？
回复131738
具体点呗，关于二进制这，我真的是不太懂，谢谢了！
FateSky 发表于 2011-12-28 21:41 http://www.autoitx.com/images/common/back.gif
所谓 [ 另存为 ANSI 可以读取 ] 就是记事本打开你的附件，选 [ 另存为 ]菜单 编码选 ANSI 保存。。。。
回复 29# 131738
哦，原来是这样，看来我得向你们请教更多的东西，才能弥补我的不足啦，呵呵。