# Re: 考虑中英文混合问题, 撷取可被database接受的字串

Posted by 小吴 on August 07, 1997 at 18:38:46:

In Reply to: 考虑中英文混合问题, 撷取可被database接受的字串 posted by Lisa Chang on August 07, 1997 at 01:56:32:

如果你是使用 vb6，Textbox 的 MaxLength 就可以解你的问题。
如果你是使用 vb6，啊哈，方法比较复杂一点，方法如下：
Const conFieldLen=4
Dim sData As String, iNullCharPos As Integer

sData = "中1国"
sData = StrConv(LeftB$(StrConv(sData, vbFromUnicode), conFieldLen), vbUnicode)
iNullCharPos = InStr(sData, vbNullChar)
If iNullCharPos > 0 Then sData = Left$(sData, iNullCharPos - 1)

OK! 就这样，把这段程式写成副程式吧!

Follow Ups: