如何确定VB文本框中文本的行与列

来源：百度知道 编辑：UC知道 时间：2024/05/22 22:48:41
假如，我在文本框中输入下面数据：
026
059
068
134
149
158
266
446
我想单击command1把偶数行的数据输出到窗体
即在窗体打印出：
059
134
158
466
然后点command2把第一列去掉，即：
26
59
68
34
49
58
66
46
怎么能实现这种功能，vb学的不太好，想一天了，还是搞不定！！
各位大侠，能不能写的详细点，给出代码，谢谢！

Private Sub Command1_Click()
Dim A, S As String
S = Text1.Text
A = Split(S, vbCrLf)
Cls
For i = 0 To UBound(A)
If i Mod 2 = 1 Then
Print A(i)
End If
Next
End Sub

Private Sub Command2_Click()
Dim A, S As String
S = Text1.Text
A = Split(S, vbCrLf)
Cls
For i = 0 To UBound(A)
If Len(A(i)) > 1 Then Print Right(A(i), Len(A(i)) - 1)
Next
End Sub

真够难的哦。暂时想不出，等待高手。

用查找vbcrlf判断行，把数据分解成数组，然后把数组中第一个字母去掉。