vb文本的每一行转换成数组 并且当头5个字母H1501或H1514时 从数组读取下一行的第8位到18位数据为动态数组

来源:百度知道 编辑:UC知道 时间:2024/05/24 19:23:24
我要读取的文本为
H1578 453759 1293659 02340 00000 4
20080701040000 /// /// /// /// /// /// //// /// /// /// /// //// 0000 0291 0305 0339 0286 0303 /// /// //// /// //// ///// ///// //// ///// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// ///// ///// ///// ////
000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000=
H1514 440956 1292442 00000 00000 4
20080701040000 /// /// /// /// /// /// //// /// /// /// /// //// 0000 0262 0265 0301 0244 0332 /// /// //// /// //// ///// ///// //// ///// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// //// ///// ///// ///// ////
000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000=
H1501 440852 1303858 03530 00000 4
20080701040000 /// /// /// /// /// /// //// /// /// /// /// //// 0000 0300 0

Private Sub Command1_Click()
Dim s As String
Open "c:\data.txt" For Input As #1
Do Until EOF(1)
Line Input #1, tmpData
strData = strData & tmpData
Loop
Close #1

s = strData
s = fun(s)
Print s
End Sub

Private Function fun(ByVal s As String) As String
Do While (InStr(s, " ") <> 0)
s = Replace(s, " ", " ")
Loop
fun = s
End Function试试看,是不是这样子