重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
很简单,用left、right、mid几个函数
我们提供的服务有:成都网站建设、做网站、微信公众号开发、网站优化、网站认证、林周ssl等。为千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的林周网站制作公司
比如left("123456789",5),就是取前五位,得12345
right("123456789",5),就是以后五位,得56789
mid也类似,具体可以看帮助。
Dim fs As New System.IO.FileStream("D:\1.txt", IO.FileMode.Open, IO.FileAccess.Read)
Dim buffer(3) As Char
Dim re As New System.IO.BinaryReader(fs)
re.Read(buffer, 0, 4)'表示从0位开始读4位
MsgBox(buffer)
将16进制数存在变量 a 中
b=mid(a,1,2) c = mid (a,3,2)
b就是AA c就是55
如果是固定格式的,
str=34X+45Y=67Z
x=split(str,"X")(0) ‘以X分割,取第0段,即:34
y=split(split(str,'+')(1),'Y')(0) '以+分割,取第1段即:45Y=67Z,再以Y分割,取0段得45
z=split(split(str,'=')(1),'Y')(0) '同上
把字符串分割,查找,截取这些常用字符串处理函数掌握了,
就差不多能随心所欲的处理了...
以上是vb6.0代码,