网站建设资讯

NEWS

网站建设资讯

vb点虐 怎么取左八位 vb取左边5个字符串

vb点虐 怎么提取字符串?

在VB中是这样的,没学过VB点虐 ,你变换一下就可以了

创新互联长期为上1000家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为德清企业提供专业的做网站、成都网站建设德清网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。

按你说的,用用Left,Right和Mid

Option Explicit

Private Sub Command1_Click()

Dim Num(2)

Num(0) = Val(Left(Label1.Caption, 2))

Num(1) = Val(Mid(Label1.Caption, 3, 1))

Num(2) = Val(Right(Label1.Caption, 2))

MsgBox "Num(0)="  Num(0)  vbCrLf  "Num(1)="  Num(1)  vbCrLf  "Num(2)="  Num(2)

'如果想测试是不是可以计算,可以用这一句

'MsgBox "Num(0)+1="  Num(0) + 1  vbCrLf  "Num(1)+1="  Num(1) + 1  vbCrLf  "Num(2)+1="  Num(2) + 1

End Sub

Private Sub Form_Load()

Label1.Caption = "12345"

End Sub

有问题请追问,满意请采纳!

关于VB一个赋值和取高、低八位问题

data(4)=cbyte(a and Hff)'低

data(5)=cbyte(a\256)'高

'如果API的话 有一个CopyMemory 可以转换任何类型.当然这是你的以后扩展

如果用copyMemory 时 就是

CopyMemory data(4),a,2 '这里你要保证你的a 的类型为 integer

如果高低位反了,

怎么只提取前数组中的前八位数据

1.LEFT函数:是提取从左第一个字符开始,取几位,=LEFT(A1,11)即取前个11字符;

2.MID函数:是从第几位开始,提取几位,=MID(A1,1,4)即从第1位起,取4位;

3.RIGHT函数:是从右起提取位数,即从后面向前数提取几位,=RIGHT(A1,3)即取后3位。

方法很多,看具体数据而定,是固定取前11个字符,直接用LEFT函数是正确的选择。


当前标题:vb点虐 怎么取左八位 vb取左边5个字符串
本文链接:http://cdweb.net/article/ddisohj.html