求按行读文本文件，把每行左空格去掉，然后一行行写入另一格文本文件的控制台下程序，越简单越好。。。。。

Question

完成功能就行，谢谢！

Answer 1

Private Sub Command1_Click()
Dim ins, outs As String
Open App.Path & "\1.txt" For Input As #1
Open App.Path & "\2.txt" For Append As #2
   Do Until EOF(1)
        Line Input #1, ins
            outs = LTrim(ins)
        Print #2, outs
        
   Loop
Close #1
Close #2
MsgBox "操作成功！"
End Sub

Answer 2

Private Sub Form_Load()
  Text1.Text = TextReMoveLeftSpace(TextGetByFile("2SY2.txt"))
  TextCopy_ReMoveLeftSpace "2SY2.txt", "2SY3.txt"
End SubSub TextCopy_ReMoveLeftSpace(ByVal pSurFile As String, ByVal pDesFile As String, Optional ByVal pSpace As String = " ", Optional ByVal pReadStart As Long = 1, Optional ByVal pWriteStart As Long = 1)
  '拷贝文本文件，并去掉左空格
  Dim tSurText As String
  Dim tDesText As String
  
  tSurText = TextGetByFile(pSurFile, pReadStart)
  tDesText = TextReMoveLeftSpace(tSurText, pSpace)
  TextPutToFile pDesFile, tDesText, pWriteStart
  
End SubFunction TextReMoveLeftSpace(ByVal pText As String, Optional ByVal pSpace As String = " ") As String
  '去掉文本左空格
  Dim tOutString As String
  
  tOutString = LTrim(pText)
  
  Dim tDimSpace As String
  Dim tDimSpace_Find As Boolean
  
  tDimSpace = vbCrLf & pSpace
  
  Do
    tDimSpace_Find = CBool(InStr(tOutString, tDimSpace))
    tOutString = Replace(tOutString, tDimSpace, vbCrLf, , 1)
  Loop While tDimSpace_Find
  
  TextReMoveLeftSpace = tOutString
End FunctionSub TextPutToFile(ByVal pFileName As String, ByVal pText As String, Optional ByVal pStart As Long = 1)
  '写文本文件
  Dim tFileNumber As Integer
  
  tFileNumber = FreeFile
  
  Open pFileName For Binary As #tFileNumber
  
    Dim tBytes() As Byte
    
    tBytes() = StrConv(pText, vbFromUnicode)
    
    Put #tFileNumber, pStart, tBytes()  Close #tFileNumberEnd SubFunction TextGetByFile(ByVal pFileName As String, Optional ByVal pStart As Long = 1) As String
  '读文本文件
  Dim tOutText As String
  
  Dim tFileNumber As Integer
  
  tFileNumber = FreeFile
  
  Open pFileName For Binary As #tFileNumber
  
    Dim tFileSize As Long
    
    tFileSize = LOF(tFileNumber)
  
    Dim tBytes() As Byte
    Dim tBytes_Length As Long
    
    tBytes_Length = tFileSize - 1
    
    ReDim tBytes(tBytes_Length)
    
    Get #tFileNumber, pStart, tBytes()
    
    tOutText = StrConv(tBytes(), vbUnicode)
  
  Close #tFileNumber
  
  TextGetByFile = tOutText
End Function

Answer 3

qdofficer(青岛老青年)  打开超过32K字节的文件时超出部分的字节将无法获取:
 KiteGirl(小仙妹) 　转换后原有的文本格式全变了。

Answer 4

qdofficer(青岛老青年)  打开超过32K字节的文件时超出部分的字节将无法获取:
 KiteGirl(小仙妹) 　转换后原有的文本格式全变了msn:
[email protected]

Answer 5

line input 方法一次一行