線上轉換：圖片轉文字 圖片轉字元原理：將圖片轉為ASCII字元畫寫了個圖片轉化為ASCII圖的程式，就是很多字元組成圖片的那種_c語言吧

Private Function MyTrim(s As String) As String

MyTrim = Trim(s) "去掉首尾空格

Do While InStr(1, MyTrim, " ") > 0 "迴圈直到檢查到沒有兩個連續的空格

MyTrim = Replace(MyTrim, " ", " ")

Loop

End Function

Private Sub Command1_Click()

Dim s As String

s = " a b c d EEEEEEEE ewewe"

s = MyTrim(s)

MsgBox s

End Sub