VB菜鸟求助~文本内容筛选

Question

在一个窗体上将TEXT1中的文本内容按顺序剪切到TEXT2中   比如隔10个剪切1个   
做了几天还是想不清楚该怎么做  麻烦大家指点指点  谢谢

Answer 1

在一个窗体上用命令按钮做将TEXT1中的文本内容按一定规律剪切到TEXT2中   比如隔10行剪切1行到TEXT2中   
做了几天还是想不清楚该怎么做  麻烦大家指点指点  谢谢

Answer 2

Private Sub Command1_Click()
Dim i As Integer, c As Integer, sum As Integer
Dim s As String
Text2.Text = ""
s = Left(Text1.Text, 1)
c = Text1.Width \ TextWidth(s) - 1
sum = Len(Text1.Text)
For i = 0 To sum \ c Step 10 '每隔10行
    Text2.Text = Text2.Text & Mid(Text1.Text, c * i + 1, c)
Next i
End SubPrivate Sub Form_Load()
Text2.Text = ""
Text2.Width = Text1.Width
End Sub