各位,一下是我写的一段代码,机子报错了。
dim tel() as string
dim SMS as string
tel() = Mid(SMS, 26, 12)我不知道用什么函数将字符串转化为字符数组啊?
解决方案 »
- 关于二次开发
- vb画图容器:picture太小
- .......散分......下午会困 怎么解决...
- 【问】如何在所有文本框的右键中添加自己的多级子菜单?
- 在線等﹗﹗請問什么是Microsoft Internet Transfer 控件﹐如何引用它呢(也就是生成它的一個實例)?
- 各位大哥!怎样才能下载网上指定的文件到本地机子上呢?
- 请教高手!!谢谢了:)
- 如何取得word文档和excel的内容?谢谢各位。
- 急:OLE字段中的*.dwg(或*.doc)文件在不使用临时文件作桥梁的情况下能否直接让AutoCAD(或word)打开并保存?
- SQL 存储过程调用时的参数问题.
- 求助封装成DLL动态连接数据库的方法
- 求助 VB 循环复式问题
dim SMS as string
tel(0) = Mid(SMS, 26, 12)
tel(1) = Mid(SMS, 26, 10)
tel(2) = Mid(SMS, 26, 8)
Dim strdefiner As String = "hallo"
Dim sinstr(5) As Char
Dim i As Integer
Dim j As Integer
i = strdefiner.Length For j = 0 To i Step 1
sinstr(j) = CChar(Mid(strdefiner, j + 1))
Next
End Subhave a try using this code.
如果你的SMS中只有英文或数字(ANSI中的单字节字符),可以用字节数组;如果还有汉字,最好用字符串(string)数组
假设 SMS="1234567890ABCDEFGHIJKLMOPQRSTUVW1234567890"
结果=?