截取字符串問題 在VB中一個中文字佔一個字節字符串STR="ABC壮志饥123餐胡CD虏肉DEF"怎樣能夠將以上的字符串截取成隻有10字節長度的子串呢(遇到中文時當作兩個字節)?則最終結果應為子字符串STR1="ABC壮志饥1" 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Command4_Click()Dim STR As StringSTR="ABC壮志饥123餐胡CD虏肉DEF"MsgBox StrConv(MidB(StrConv(STR, vbFromUnicode), 1, 10), vbUnicode)End Sub Public Function test() Dim str As String str = "df要工中在为林d吉kl为估" Debug.Print StrConv(LeftB(StrConv(str, vbFromUnicode), 10), vbUnicode)End Function 上楼的是对的 用left,right ,mid 函数可以搞定 我將tztz520(午夜逛街)的代碼改為:Dim STR As StringSTR="ABC壮志饥123餐胡CD虏肉DEF"STR1 = StrConv(MidB(StrConv(STR, vbFromUnicode), 1, 10), vbUnicode)STR2 = StrConv(MidB(StrConv(STR, vbFromUnicode), 11, 20), vbUnicode)Debug.Print STR1 & "+" & STR2得到的結果是: ABC壮志饥1+23餐胡CD虏肉DEF而我希望的結果是:ABC壮志饥1+23餐胡CD虏是否STR2寫錯啦,怎么改呢? Dim STR As StringDim STR1 As String, STR2 As StringSTR = "ABC׳־¼¢123²ÍºúCD²ÈâDEF"STR1 = StrConv(MidB(StrConv(STR, vbFromUnicode), 1, 10), vbUnicode)STR2 = StrConv(MidB(StrConv(STR, vbFromUnicode), 11, 10), vbUnicode)'将20改为10Debug.Print STR1 & "+" & STR2 我搞錯Mid(string, start[, length])的用法啦。問題解決啦 DataGrid中的数据放在TEXT中有关咋样写呢 vb访问sql2000时,列名的格式 多个form使用同一个串口问题 节日散分2 300相送!!如何编程实现定时断开网络连接和定时连接上网络? 解决后另开贴送分 关于活动窗口的问题! 想找私活! 一时忘记,小写转换大小的函数?(谁先答中谁得全分) [菜鸟一问]寻求石英钟的原代码!有这方面的粘!多谢!!!多谢!!! 这个问题你们大家都会?就我不会!!!所以,请教!!! 如何不在WINDOWS任务管理器中显示程序名称?急!!!!! 安装Visual Studio 6.0时遇上的问题!
Dim STR As String
STR="ABC壮志饥123餐胡CD虏肉DEF"
MsgBox StrConv(MidB(StrConv(STR, vbFromUnicode), 1, 10), vbUnicode)
End Sub
Dim str As String
str = "df要工中在为林d吉kl为估"
Debug.Print StrConv(LeftB(StrConv(str, vbFromUnicode), 10), vbUnicode)
End Function
用left,right ,mid
函数可以搞定
Dim STR As String
STR="ABC壮志饥123餐胡CD虏肉DEF"
STR1 = StrConv(MidB(StrConv(STR, vbFromUnicode), 1, 10), vbUnicode)
STR2 = StrConv(MidB(StrConv(STR, vbFromUnicode), 11, 20), vbUnicode)
Debug.Print STR1 & "+" & STR2得到的結果是:
ABC壮志饥1+23餐胡CD虏肉DEF
而我希望的結果是:
ABC壮志饥1+23餐胡CD虏
是否STR2寫錯啦,怎么改呢?
Dim STR1 As String, STR2 As StringSTR = "ABC׳־¼¢123²ÍºúCD²ÈâDEF"
STR1 = StrConv(MidB(StrConv(STR, vbFromUnicode), 1, 10), vbUnicode)
STR2 = StrConv(MidB(StrConv(STR, vbFromUnicode), 11, 10), vbUnicode)'将20改为10
Debug.Print STR1 & "+" & STR2