【求助】老马帮看看这个文本怎么读，

everyone · 发表于 2009-10-23 22:01:15

如下面这两个文本，一个是转换的，一个是未经转换的，我想读出未经转换的 G1P648-01A1 和G1P648.1 ，该怎么读，我用一般的读文本方法，读不出来，有空帮我看看，谢谢了
这个是刚刚上传的文件

tQY7HUv0.rar (47.84 KB, 下载次数: 15219) 
读出这个的方法我已经找到了，你帮我分析下转换的方法，谢谢
 
Option Explicit
Public Sub Main()
    Dim strFile As String     Dim strBuf As String     Dim strOut As String         ' 这里写的是我的磁盘路径     ' 你要按你实际的路径和文件名来写     strFile = "C:\tskmap\G1P648.1\map_0001.dat"     strBuf = Space(16)     Open strFile For Binary As #1     Get #1, 61, strBuf     strOut = Trim$(strBuf)     MsgBox strOut, 64, "读取文本"     Get #1, 83, strBuf     strOut = Trim$(strBuf)     MsgBox strOut, 64, "读取文本"     Close
End Sub

[此贴子已经被作者于2009-10-24 8:47:41编辑过]

everyone · 发表于 2009-10-24 14:22:40

这里还有另外一种，一起帮我看看是怎么回事。谢谢了

iOAPoP6O.rar (60.44 KB, 下载次数: 15454)

马大哈 · 发表于 2009-10-24 17:43:32

看起来所有文件都是有固定60字节的文件头,以及40字节的你要的数据区域组成的.
 
那要读这个就比较简单了:
 
<div class="msgheader">QUOTE:</div><div class="msgborder">
Public Function GetStr(ByVal filename As String) As String()     Dim Buff As String, Buff2() As String, Buff3() As String     Dim I As Long, J As Long
    Open filename For Binary As #1         Buff = Space(39)         Get #1, 61, Buff     Close #1
    Buff2() = Split(Buff, Chr(0))     ReDim Buff3(1)
    For I = 0 To UBound(Buff2)         Buff2(I) = Trim(Buff2(I))         If Len(Buff2(I)) > 3 Then             Buff3(J) = Right(Buff2(I), Len(Buff2(I)) - J)             J = J + 1             If J = 2 Then Exit For         End If     Next     GetStr = Buff3 End Function</div>
传入文件名,输出就是一个数组,元素0是第一个字符串,元素1是第二个字符串.
 
例:
 
debug.print  GetStr("010.2SXF35075.110")(1) 
返回:  2SXF35075.1

everyone · 发表于 2009-10-24 18:36:57

谢谢马哥哈，
1楼上是我上午传的新的文件，里面还有转换软件，你帮我看下，能不能作出和软件转换的一样的效果，谢谢了

马大哈 · 发表于 2009-10-24 20:24:08

无法运行.
 
两种格式的文件,后者好说,前者需要去解析内容,没有文档说明的情况下比较麻烦.

everyone · 发表于 2009-10-24 20:35:25

果真是不好读啊，只有放弃了
谢谢马哥了

马大哈 · 发表于 2009-10-23 23:53:02

多上传几个转换前的文件,我看看文件格式是怎么样的.

账号		自动登录	找回密码
密码			加入我们

【求助】老马帮看看这个文本怎么读，

论坛牛人

贡献奖

关注奖

最佳版主

进步奖

人气王

疯狂作品奖

精英奖

赞助论坛勋章

乐于助人勋章