续VB逆序问题

Question

本帖最后由 bcrun 于 2010-08-18 21:00:41 编辑

Answer 1

Private Sub Command1_Click()
    Dim strFrom As String
    Dim strNo As String
    Dim strTo As String
    Dim i As Integer
    
    strNo = ",END"
    
    Open "E:\TEST1.TXT" For Input As #1
    Open "E:\TEST2.TXT" For Output As #2
      
    Do While Not EOF(1) 'EOF为文尾测试函数
        i = i + 1
        Line Input #1, strFrom '将读入的一行存到变量TextLine中
        strTo = strFrom
        
        If i >= 9 Then
            strTo = Replace(strTo, strNo, "")
            strTo = fun_TurnOver(strTo) & strNo
        End If
        
        Print #2, strTo
    Loop
      
    Close #1
    Close #2
End SubPrivate Function fun_TurnOver(ByVal strFrom As String) As String
    Dim a() As String
    Dim b() As String
    Dim i As Integer
    Dim intC As Integer
    
    a = Split(strFrom, ",")
    intC = UBound(a)
    ReDim b(intC)
    
    For i = intC To 0 Step -1
        b(intC - i) = a(i)
    Next i
    
    fun_TurnOver = Join(b, ",")
    
End Function

Answer 2

灵活方式
oTxtFromFileName  输入文件名
oTxtToFileName    输出文件名
oTxtHoldString    保留字符串
oTxtStartRow      开始处理行
加4个textboxPrivate Sub Command1_Click()
    Dim strFrom As String
    Dim strHoldString As String
    Dim strTo As String
    Dim i As Integer
    
    strHoldString = oTxtHoldString
    
    
    Open oTxtFromFileName For Input As #1
    Open oTxtToFileName For Output As #2
      
    Do While Not EOF(1) 'EOF为文尾测试函数
        i = i + 1
        Line Input #1, strFrom '将读入的一行存到变量TextLine中
        strTo = strFrom
        
        If i >= Val(oTxtStartRow) Then
            strTo = Replace(strTo, strHoldString, "")
            strTo = fun_TurnOver(strTo) & strHoldString
        End If
        
        Print #2, strTo
    Loop
      
    Close #1
    Close #2
End SubPrivate Function fun_TurnOver(ByVal strFrom As String) As String
    Dim a() As String
    Dim b() As String
    Dim i As Integer
    Dim intC As Integer
    
    a = Split(strFrom, ",")
    intC = UBound(a)
    ReDim b(intC)
    
    For i = intC To 0 Step -1
        b(intC - i) = a(i)
    Next i
    
    fun_TurnOver = Join(b, ",")
    
End Function