文字處理是我們日常生活及工作上最常用到的功能
先至 VB範例網下載範例檔Wordpro v4.0

他是一個類似筆記本功能的小程式，除此之外還有 轉成大小寫的功能
如果還有另外的需求可以自行加入，今天示範 刪除空字串的功能 (trim函數功能)
去除字串 前 後 多餘的空白
以下為code，功能表請自行編輯

Private Sub DElTrim_Click()
    Open App.Path & "\log.txt" For Output As #1 '存到c:\log.txt
    Print #1, TxtMain    'strsql是變數名稱
    Close #1
    
    Dim a, i
    
    Open App.Path & "\log.txt" For Input As #1 '載入 檔案before.txt
    
    While Not EOF(1)
        Line Input #1, a
        List1.AddItem Trim(a) '增加list1.additem
    Wend
    Close #1
    
    Open App.Path & "\log.txt" For Output As #2 '存到c:\log.txt
    For i = 0 To List1.ListCount - 1
        List1.ListIndex = i
        If Len(Trim(List1.Text)) > 0 Then Print #2, List1.Text
        If List1.Text = "" Then Print #2, List1.Text
      
    Next
    Close #2
    
    Open App.Path & "\log.txt" For Input As #1 '重新載入 檔案log.txt
    TxtMain.Text = ""
    List1.Clear
    
    While Not EOF(1)
        Line Input #1, a
        TxtMain = TxtMain + LTrim(a) + vbCrLf '增加list1.additem
    Wend
    Close #1
End Sub