[已解决]对字符串提取的程序

markang

各位老师,同学,晚上好!

设某一长度为n的字符串,里面包括汉字,数字,常规的标点符号及空格号,我怎么对他进行连续两位的提取,并放到数组中去?用正则式可以实现吗?

对字符串提取的程序.zip (7.17 KB, 下载次数: 1)

2015-8-9 22:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-9 22:30

Sub test()
    Dim x$, i%, n%, s%, A
    x = [a1]: n = Len(x)
    ReDim A(1 To n + 1, 1 To 1)

    For i = 1 To n Step 2
        s = s + 1: A(s, 1) = Mid(x, i, 2)
    Next i
    [e1].Resize(s) = A
End Sub

对字符串提取的程序2.rar (9.27 KB, 下载次数: 5)

2015-8-9 22:29 上传

点击文件名下载附件


如果规律不复杂，不需正则

跳转到最佳答案楼层

爱疯

Sub test()
    Dim x$, i%, n%, s%, A
    x = [a1]: n = Len(x)
    ReDim A(1 To n + 1, 1 To 1)

    For i = 1 To n Step 2
        s = s + 1: A(s, 1) = Mid(x, i, 2)
    Next i
    [e1].Resize(s) = A
End Sub

对字符串提取的程序2.rar (9.27 KB, 下载次数: 5)

2015-8-9 22:29 上传

点击文件名下载附件


如果规律不复杂，不需正则

markang

thank you