Question

VB中如何删除text中的指定行

在text1中第n行为0或空行时删除，同时删除text2和text3中的第n行.
例：在text1中第5行为0时，删除text1、text2和text3中的第5行
在text1中第10行为空行时，删除text1、text2和text3中的第10行

Answer 1

如果你的Text1是自动换行的, 我没办法实现
如果不是, 可以试着这样
dim v
v = split(text1, vbcrlf)
split是一个按特定字符拆分字符串的函数, 返回一个数组, 比如v = split("abc|def|ghi", "|") 可以得到有三个元素的数组v, v(0) = "abc", v(1) = "def", v(2) = "ghi"
上面的写法是使用vbCrlf, 也就是换行符来拆分字符串, 具体怎么样来实现你想要的功能, 我想可以当v(5) = "" 时, 把v(6)赋给v(5), v(7)赋给v(6) ....以此类推, 把v(UBound(v)) 赋给v(UBound(v)-1)然后把数组重新拼成字符串显示在text1里面

Answer 2

,Option Explicit
Private Sub Command1_Click()
Dim arr1, arr2, arr3, i As Integer
arr1 = Split(Text1, vbNewLine)
arr2 = Split(Text2, vbNewLine)
arr3 = Split(Text3, vbNewLine)
Text1 = "": Text2 = "": Text3 = ""
For i = 0 To UBound(arr1)
If arr1(i) <> "0" And Trim(arr1(i)) <> "" Then
Text1 = Text1 & arr1(i) & vbNewLine
Text2 = Text2 & arr2(i) & vbNewLine
Text3 = Text3 & arr3(i) & vbNewLine
End If
Next
End Sub

Answer 3

楼上的已经说清楚了，下面是另外一种实现的方法，前提是你的三个text必须同样行数（至少2,3的不能比1的行数少，不然会报错），还有就是上面提到的不是自动换的行，
Private Sub Command1_Click()
t1 = Split(Text1.Text, vbCrLf)
t2 = Split(Text2.Text, vbCrLf)
t3 = Split(Text3.Text, vbCrLf)

For n = 0 To UBound(t1)
If Trim(t1(n)) <> "0" And Trim(t1(n)) <> "" Then
If n < UBound(t1) Then
t1_s = t1_s & t1(n) & vbCrLf
t2_s = t2_s & t2(n) & vbCrLf
t3_s = t3_s & t3(n) & vbCrLf
Else
t1_s = t1_s & t1(n)
t2_s = t2_s & t2(n)
t3_s = t3_s & t3(n)
End If
End If
Next
Text1.Text = t1_s
Text2.Text = t2_s
Text3.Text = t3_s
End Sub