求助文件处理 - 编程论坛

#2

风吹过b2014-03-07 14:40

数组的下标？？？  那你这个数组那得多大？？

处理的方法：

读一行
然后对一行进行替换，
先把 VbTAB 换成空格，这步是容错处理。
再把两个空格换成一个空格，这步使用 DO 循环，当换好了后的字符串是不存在二个空格时结束循环。
然后再按空格使用 split 函数把字符串分解成数组。
53478    20131231000000    400000    1122700    -8.1
  0             1             2         3         4
如上图，一行将会分成 5 个部分（0-4），第2，3元素就是你所需要的第3 4 列。
再向后如何处理那就是你自己的事了。

#3

夜雨霖铃2014-03-07 14:51

回复 2楼风吹过b

是不是可以用循环然后把每行赋给一个字符串变量，再用split把每一列分开并赋给一个字符串数组，然后从这个数组获取我要的信息？

#4

xlhcy20142014-03-07 18:10

如果你的文本里的数据都是要用的，就采用顺序文件的读写操作，一行一行的读取信息，然后在处理下需要内容。
先定义个二维数组. Array_XY(最大经度，最大纬度), 说下吧。你把经纬度做下标，这个数组会很大，而且很多数组单元我估计也许你都用不上，这样有点浪费内存。
建议楼主采用带两个参数的函数的方式来处理问题。
如 function mypro(byval x , byval y) as long 把经纬度对应的信息，返回给接受的变量。
getinformation= mypro(纬度，经度)

[ 本帖最后由 xlhcy2014 于 2014-3-7 18:19 编辑 ]

#5

风吹过b2014-03-07 19:01

回3楼，就是这样的。

按行进行分解取你要数据。
可以把分解后的数据都放到数组里，后面再慢慢用。

数组可以用二维数组（不推荐）
也可以使用一维结构体数组（推荐）

#6

owenlu19812014-03-07 19:28

将TXT内容全部复制到Excel，再从Excel获取对应的行列数据即可

#7

xlhcy20142014-03-07 19:30

假设你需要根据经度和纬度获取第5列的信息。程序如下：

程序代码：

Option Explicit
Option Base 1
Dim array_xy(100) As String '这里暂定有100行需要读取的信息，具体情况自己设置
Private Function search(ByVal x As String, ByVal y As String) As String '定义个搜索函数
Dim jingdu As String, weidu As String, infor As String, n As Integer, pos As Integer, last As Integer
Dim count As Integer

Open "文件的路径" For Input As #1
Do While Not EOF(1)
pos = 1
count = count + 1
Line Input #1, array_xy(count)

For n = 1 To 4
pos = InStr(pos, array_xy(count), Space(4)) '看了一下你的每个数据隔了4个空格，如果不是4个，你自己再改一下
If n = 2 Then last = pos
If n = 3 Then jingdu = Trim(Mid(array_xy(count), last, pos - last)): last = pos '读取纬度
If n = 4 Then
weidu = Trim(Mid(array_xy(count), last, pos - last)) '读取经度
infor = Trim(Right(array_xy(count)), Len(array_xy(count) - pos)) '读取第5列信息
End If
Next n

If x = jingdu And y = weidu Then search = infor: Exit Function

Loop
MsgBox "没有搜索到相关的信息", vbOKOnly, "提示"
search = vbNullString
Close #1
End Function
Private Sub Command1_Click()
Dim result As String
result = search(经度，纬度)
End Sub

我也是个新手，接触VB不超过1个月，以上程序仅供参考，思路就是那样的，不敢保证100%正确。