去掉字符串尾巴chr(0)等等的最好的方法，今天又看到了，分享一下

6500K · 发表于 2011-4-21 21:58:28

pathname = Split(pathname, Chr$(0))(0)

这样就成了，以前我是傻傻的写个变量，Instr(String, Chr$(0))找位置, 然后再Left...多此一举。碰到有一堆Chr$(0）分隔的长字符串，还得想半天咋一个个的分别提取。

直接把它打断是最好的...

鱼羊小子 · 发表于 2011-4-22 09:25:27

提示: 作者被禁止或删除内容自动屏蔽

xingjing · 发表于 2011-4-22 11:15:05

Split 当然没有 instr效率高啦
无需验证，上面的整句是正确的，嘿嘿
Split 将以chr（0）作为分隔符进行整个字符串分隔，然后返回下标（0）维数的

另外我记得，如果pathname=""的时貌似也不会出问题吧！大家最好自己试试，我记得是这样的，不过我的记忆不是很好使倒是真的。

neilbr · 发表于 2011-4-22 16:46:12

replace函数就可以解决

icecept · 发表于 2011-4-22 18:06:32

If Length <> 0 Then
GetWinPath = Left(Windir, InStr(Windir, Chr(0)) - 1)
Else
GetWinPath = vbNullString
End If
这才是最好的方法

6500K · 发表于 2011-4-22 18:07:31

本帖最后由 6500K 于 2011-4-22 18:14 编辑

neilbr 发表于 2011-4-22 16:46
replace函数就可以解决

Replace绝对不要乱用，还有直接去掉最后一个字符也是错误的。
比如REG_MULTI_SZ每一段落都用二个Chr（0）分割，这种特殊字符串很多。

Split使用前无需多次预判，也不会有错误的发生。

dahual · 发表于 2011-4-22 18:54:26

提示: 作者被禁止或删除内容自动屏蔽

JuncoJet · 发表于 2011-4-22 21:46:55

打酱油

WAWSF · 发表于 2011-4-22 23:34:40

本帖最后由 WAWSF 于 2011-4-22 23:38 编辑

你用函数多我也只要多写一句代码而已
TEXT1.TEXT=P
P=TEXT1.TEXT

不想添加控件就这样

Dim P As New TextBox
P.Text = CCC
CCC = CCC

xtaxa · 发表于 2011-4-23 01:31:39

经过测试，当字符串为""时，split要报错
Left(Windir,-1) 也要报错
s = IIf(s = "", "", Split(s, Chr(0))(0)) 也要报错
必须写成
If s = "" Then
s = ""
Else
s = Split(s, Chr(0))(0)
End If

		自动登录	找回密码
密码			立即注册

鱼羊小子鱼羊小子当前离线积分 1270 IP卡狗仔卡头像被屏蔽	发表于 2011-4-22 09:25:27 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
鱼羊小子鱼羊小子当前离线积分 1270 IP卡狗仔卡头像被屏蔽	最新一期擂台题目出来了！
	回复支持反对使用道具举报

dahual dahual 当前离线积分 16179 IP卡狗仔卡头像被屏蔽	发表于 2011-4-22 18:54:26 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
dahual dahual 当前离线积分 16179 IP卡狗仔卡头像被屏蔽
	回复支持反对使用道具举报

VBGood网站全文搜索

去掉字符串尾巴chr(0)等等的最好的方法，今天又看到了，分享一下

点评

评分

点评

点评

点评