易截截图软件、单文件、免安装、纯绿色、仅160KB

vb读取文本框字符 - VB / 基础类

我只知道字符串长度(英文为1,中文为2)和位置(在另一个字符串左边)。怎样取它们准确取出来?
mid(text1,位置,长度)

如果是字符串的最左边,可以用 left(字符串,长度),否则用1楼的

这两个长度是不相等的

mid(字符串,位置,长度)

引用
这两个长度是不相等的


怎么还俩个?没有明白

比如字符是abcd1234我们你们
我知道长度是10,对应abcd1234我,而不是abcd1234我们。

VB code:
if 英文 then
mid(text1, 位置, 长度)
elseif 中文 then
mid(text1, 位置, 长度 * 2)
end if


引用
比如字符是abcd1234我们你们
我知道长度是10,对应abcd1234我,而不是abcd1234我们。


vb 和你的规则一样,你可以测试

Instr
Mid

引用
引用 6 楼 hyjavahy 的回复:
比如字符是abcd1234我们你们
我知道长度是10,对应abcd1234我,而不是abcd1234我们。


vb 和你的规则一样,你可以测试


错了

这样做
VB code:
Private Sub Command1_Click()
Text1.Text = "abcd1234我们你们"
MsgBox StrConv(MidB(StrConv(Text1.Text, vbfromUnicode), 1, 10), vbUnicode)

End Sub


引用


相关问答:

vb - VB / 基础类

xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。

h是xml格式的字符串

你是想打开。XML格式的文件吧?

我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......

求助:C代码改写成VB代码 - VB / 基础类

谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

vb中unicode码,如何转换成文本 - VB / 基础类

用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......

VB调用EXCEL绘图,如何修改X轴坐标 - VB / 基础类

小弟用VB调EXCEL作图
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号