vb 提取字符串的问题

显示全部楼层 · 2009-7-25 18:13:13

比如说:
文本框1里面的内容如下
不会又跑出来把它删了吧?hoho
假设有几百组,空行隔开,每一部分为一组,我想提取1-20组,21-40组,41-60组,以此类推到文本框2(每部分输出结果也用空行隔开)
1,1,2,2,2,4,
1,1,2,2,2,4,
1,1,2,2,2,4,
1,1,2,2,2,4,
1,1,2,3,2,4,
1,1,2,3,2,4,
1,1,2,3,2,4,
1,1,2,3,2,4,
1,1,2,3,2,5,
1,1,2,3,2,5,
1,1,2,3,2,5,
1,1,2,3,2,5,
1,1,2,3,2,5,
1,1,2,4,2,5,
1,1,2,4,2,5,
1,1,2,4,2,5,
1,1,2,4,2,5,
1,1,2,4,2,6,
1,1,2,4,2,6,
1,1,2,4,2,6,
1,1,2,5,2,6,
1,1,2,5,2,6,
1,1,2,5,2,7,
...省略
谢谢

千问 · 2009-7-25 18:13:13

Private Sub Command1_Click()Dim str1 As String, temp As Variant, i As Long, x As Longtemp = Split(Text1.Text, vbCrLf & vbCrLf)ProgressBar1.Max = UBound(temp) + 1For i = 0 To UBound(temp) x = x + 1 ProgressBar1.Value = x str1 = str1 & temp(i) & vbCrLf If x Mod 20 = 0 Then str1 = str1 & vbCrLfNextOpen "z:\2.txt...

千问 · 2009-7-25 18:13:13

简单啊比如下面这句strings读入，astring()整合分组line input #1,stringsif strings"" then astring(i)=astring(i) & strings else i=i+1 ‘’‘’‘’‘’‘’‘’‘’‘’‘Dim i As Long, a() As StringPriva...

千问 · 2009-7-25 18:13:13

我的思路就是用FOR循环判断字符串中的每一个字符，读到换行符就把一个计数变量+1，如果变量值达到某一个数=，就截取循环变量那么长的字符串。...