一个小问题，关于TEXT多行操作的。~~~~~~~~~~~~

Question

自己写通用函数
如 DelStr(Source as string,DelStr as string)

Answer 1

可以通过每行的尾部chr(13)来判断每行所在的位置。

Answer 2

不要用空格来控制换行：Private Sub Form_Load()
Text1 = "——————————" & vbNewLine & _
    "赌东道 11111" & vbNewLine & _
    "       地方 地方法" & vbNewLine & _
    "          ￥元" & vbNewLine & vbNewLine & _
    "——————————"
End SubPrivate Sub Form_Click()
Dim arr() As String
arr = Split(Text1, vbNewLine)
arr(3) = ""
Text1 = Join(arr, vbNewLine)
End Sub

Answer 3

Private Fuction Line_Delete(byval LNo as integer)
Dim arr() As String
arr = Split(Text1, vbNewLine)
arr(Lno) = ""
Text1 = Join(arr, vbNewLine)
End Function用法：
Line_Delete 5
Line_Delete 2