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

[tonyguo]

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

[tonyguo]

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

[zzyong00]

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 Sub

Private Sub Form_Load()
Text2.Text = ""
Text2.Width = Text1.Width
End Sub