求助

只看楼主
收藏
回复

青青子衿
求过二级
2

需要使用两个连续的Split 函数对数据进行分割老是提示下标超限
s = Text1.Text
z = Split(s, "_+")
For i = 0 To UBound(z)
c = Split(z(i), "_")
a = a & "," & RTrim(c(0)) & "," & Left(c(1), 12) & "," & Left(c(2), 12) & "," & Left(c(3), 12) & "," & vbCrLf
Next
Text2.Text = a

初音七奈
钩子编程
15

确保你输入的内容用“_+”分组后的每一组都至少包含三个下划线

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示

4回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六