最最基础的问题，，哪位帮在下解答一下，高分赠！(再次~)

[dragonhell]

（ZJ）
52368
53698
52145
53X69
58631
。。。
。。。
。。。
。。。
53674
这样的报文，
最后要写个函数，跳过（ZJ）这一行，显示文本如下：
52368 53698 52145 53/69 53684 。。。 。。。 。。。 。。。
53674=
一行不超过10个数，
在最后一个数后加个=
遇到X显示为/
该如何编写？？？
急需，，，，高分赠！！！
我是搞气象的,现在做这个报文,各位别笑在下菜!
望能详细指教,会有高分相赠~

[flc]

关注

[northwolves]

dim txts as string
'按行读入数组a()
'txts=join(a," ")
'txts=replace(txts,"x","/")
'每行放入10个
'txts=txts&"="

[rainstormmaster]

Private Sub Command1_Click()
Dim i As Long
Dim filename As String
Dim buff() As Byte
filename = "d:\mc\mcctest123.txt"
i = FileLen(filename)
ReDim buff(i - 1)
Open filename For Binary As #1
Get #1, , buff
Close #1
Dim s As String, outs As String
s = StrConv(buff, vbUnicode)
Dim arr As Variant
arr = Split(s, vbCrLf)
For i = 0 To UBound(arr)
arr(i) = Trim(arr(i))
Next
Dim temp As String, outstr As String
For i = 1 To UBound(arr) - 1
If i Mod 10 = 0 Then
temp = vbCrLf
Else
temp = " "
End If
outstr = outstr + arr(i) + temp
Next
outstr = Trim(outstr)
outstr = outstr + vbCrLf + arr(UBound(arr)) + "="
outstr = Replace(outstr, "x", "/")
Debug.Print outstr


End Sub

[coolboy0000love]

还是用数组比较简单

按行读入数组a()
txts=join(a," ")
txts=replace(txts,"x","/")
每行放入10个
txts=txts&"="