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

Question

（ZJ）
52368
53698
52145
53X69
58631




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

Answer 1

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

Answer 2

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

Answer 3

还是用数组比较简单按行读入数组a()
txts=join(a," ")
txts=replace(txts,"x","/")
每行放入10个
txts=txts&"="