UC知道vb 提取字符串的问题
来源：百度知道 编辑：UC知道 时间：2024/05/17 08:11:39
比如说:
文本框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,
...省略
谢谢
文本框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,
...省略
谢谢
Private Sub Command1_Click()
Dim str1 As String, temp As Variant, i As Long, x As Long
temp = Split(Text1.Text, vbCrLf & vbCrLf)
ProgressBar1.Max = UBound(temp) + 1
For i = 0 To UBound(temp)
x = x + 1
ProgressBar1.Value = x
str1 = str1 & temp(i) & vbCrLf
If x Mod 20 = 0 Then str1 = str1 & vbCrLf
Next
Open "z:\2.txt" For Output As #1
Print #1, str1
Close #1
MsgBox "完成"
End Sub
简单啊比如下面这句strings 读入，astring()整合分组
line input #1,strings
if strings<>"" then astring(i)=astring(i) & strings else i=i+1
‘’‘’‘’‘’‘’‘’‘’‘’‘
Dim i As Long, a() As String
Private Sub Command1_Click()
On Error GoTo 1
Dim n As Long, p
ReDim Preserve a(0)
n = 0
'''''''''下面是显示文本
Text1.Text = "fjdsjj" & vbCrLf & " " & vbCrLf & "4545"
'''''''