由于工程的需要,在工程项目中获得了一个字符串,但是还需要对字符串进行一些改动获得字符串如:"4375451,123567,4269854,123654,4236524,236541"
我想将1,3,5等奇数字符串前面的4去掉,效果为:"375451,123567,269854,123654,236524,236541",然后把以上的字符串进行分组,效果为“123567,375451”,"123654,269854","236541,236524"
请问如何实现这个操作,谢谢了~~
我想将1,3,5等奇数字符串前面的4去掉,效果为:"375451,123567,269854,123654,236524,236541",然后把以上的字符串进行分组,效果为“123567,375451”,"123654,269854","236541,236524"
请问如何实现这个操作,谢谢了~~
解决方案 »
- 请问,如何从一个*.ascx中读取包含文件*.ascx中的控件的值?
- 请教:怎样通过应用程序调用MSSQL的导入导出功能实现数据的导入导出?
- 窗体最大化的代码是怎样写的?
- 文本框显示问题
- ReDim怎么用???????????在线等!!必给分!!!!
- 关于WINSOCK的连接断开问题
- 在VB中如何实现类似Outlook的功能?谢谢!!
- 死去的VB,这么多年不升级了!可我还得在它上面熬起码两年!一大项目无法脱手.
- 如何用VB6的Winsock实现C/S的聊天记录的保存.
- 哪里有sybase的书?我有个问题:select into 语句要怎样打开?详细一些好吗?
- 如何在ACCESS中快速定位到某一条程序
- Winodow.MediaPlay怎样设置全屏和大小?
如myarray(1)=4375451
myarray(2)=123567~~~
dim strA as string
dim myarray() as string
strA="4375451,123567,4269854,123654,4236524,236541"
myarray=split(strA,",")
使用split函数进行分组,语法为:
--------------------------------------------------------------------------------描述
返回基于 0 的一维数组,其中包含指定数目的子字符串。
语法
Split(expression[, delimiter[, count[, start]]])
Split 函数的语法有以下参数:参数 描述
expression 必选。字符串表达式,包含子字符串和分隔符。如果 expression 为零长度字符串,Split 返回空数组,即不包含元素和数据的数组。
delimiter 可选。用于标识子字符串界限的字符。如果省略,使用空格 ("") 作为分隔符。如果 delimiter 为零长度字符串,则返回包含整个 expression 字符串的单元素数组。
count 可选。被返回的子字符串数目,-1 指示返回所有子字符串。
compare 可选。指示在计算子字符串时使用的比较类型的数值。有关数值,请参阅“设置”部分。
设置
compare 参数可以有以下值:
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
说明
下面的示例利用 Split 函数从字符串中返回数组。函数对分界符进行文本比较,返回所有的子字符串。
Dim MyString, MyArray
MyString = Split("VBScriptXisXfun!", "x", -1, 1)
' MyString(0) 包含"VBScript"。
' MyString(1) 包含"is"。
' MyString(2) 包含 "fun!"。你只要把分隔符定义为“,”就可以了。至于你说的分组,不知道规律是什么。
发出的贴子没人回,顶贴给分,快!!
(1) 将字符串分割存入数组中
dim strA as string
dim myarray() as string
strA="4375451,123567,4269854,123654,4236524,236541"
myarray=split(strA,",") (2) 然后去掉strA(0),strA(2),strA(3)中的第一个字符
dim i as integer
for i = 0 to 5 step 2
strA(i)=Right(strA(i),len(strA(i)-1))
next (3) 再将各个数组元素重新组合
dim j , k as integer
dim aa(3) as string
for j = 0 to 5 step 2
k=j/2
aa(k)=strA(j+1) & "," & strA(j)
next
(4) 最后aa(0),aa(1),aa(2)即为所求
aa(0)="123567,375451"
aa(1)="123654,269854"
aa(2)="236541,236524"
不好意思,马虎错误! 上边的(2)(3)中的strA(x)应该全部改为myarray(x) (2) 然后去掉myarray(0),myarray(2),myarray(4)中的第一个字符
dim i as integer
for i = 0 to 5 step 2
myarray(i)=Right(myarray(i),len(myarray(i))-1)
next (3) 再将各个数组元素重新组合
dim j , k as integer
dim aa(3) as string
for j = 0 to 5 step 2
k=j/2
aa(k)=myarray(j+1) & "," & myarray(j)
next