【已解决】如何将字符串按定长字节分割成多个字符串？

玉树TMD临风

有个字符串A，里面有中、英文，中文算2个字符，英文算一个字节。

现在想将字符串按字节分割，用"\"隔开，如果分割处刚好是个汉字各占一半，那这个汉字就算到下个分割后的字符串，缺的那个字节用空格顶上。

比如：
字符串A="我1人2年吃了3斤油“，要求按3个字节分割。

正确结果是：“我1\人2\年 \吃 \了3\斤 \油 "，因为”我“的字节长度是2,”1“的字节长度是1，加起来刚好是3，以此类推。。。

这个看起来简单，可我弄了2天没弄好，特来求助。

已搞定，谢谢各位，附上源码：

Function test(zf As Variant, n As Integer)

On Error Resume Next        '当N为某此数值时，下面的I+1会超出字符长度而报错

Dim tmp As String

Dim m As Integer, i As Integer

For i = 1 To Len(zf)

tmp = tmp & Mid(zf, i, 1)

Select Case Asc(Mid(zf, i, 1))

Case Is > 0

a = a + 1           '英文字符

Case Else

a = a + 2           '中文字符

End Select

If a = n Then test = test & tmp & "\": tmp = "": a = 0

If a = n - 1 Then If Asc(Mid(zf, i + 1, 1)) < 0 Then test = test & tmp & " \": tmp = "": a = 0

If i = Len(zf) And a < n - 1 And a <> 0 Then test = test & tmp & Space(n - a) & "\": a = 0
'
最后一段如果不够字节长度N时

Next i

End Function

玉树TMD临风

谢谢，回头试试，还需要个定长数字变量来自: Android客户端

玉树TMD临风

谢谢楼上各位，明天测试后回复大家！

玉树TMD临风

谢谢各位，明天试试

玉树TMD临风

zhuyiwen 发表于 2014-4-26 08:53
有意思的题目，呵呵

朱总有空指点一下啊。上面的示例一是没有加“字节长度”的参数，这个我可以修改；二是不足字节长度的没有加" "空格补齐，代码里一时看不出来在哪里加。

玉树TMD临风

qjiangxi 发表于 2014-4-25 22:56

谢谢！可用。我先按这思路修改一下可按字节长度变量进行分割的函数

玉树TMD临风

搞了一上午终于搞定了，附上源代码：

Function test(zf As Variant, n As Integer)
On Error Resume Next        '当N为奇数时
Dim tmp As String
Dim m As Integer, i As Integer
For i = 1 To Len(zf)
tmp = tmp & Mid(zf, i, 1)
Select Case Asc(Mid(zf, i, 1))
Case Is > 0
a = a + 1           '英文字符
Case Else
a = a + 2           '中文字符
End Select
If a = n Then test = test & tmp & "\": tmp = "": a = 0
If a = n - 1 Then If Asc(Mid(zf, i + 1, 1)) < 0 Then test = test & tmp & " \": tmp = "": a = 0
If i = Len(zf) And a < n - 1 And a <> 0 Then test = test & tmp & Space(n - a) & "\": a = 0   '最后一段如果不够字节长度N时
Next i
End Function

谢谢楼上各位，如果有更简单的办法可继续讨论

玉树TMD临风

wang1999 发表于 2014-4-26 14:03
还有没有更快的方法呢，看着StrConv要进行一次转换真不爽！
再写一个

转换成字节问题不大，用下面这个就可以了，现在遇到新问题，开新贴问。
For i = 1 To Len(zf)
Select Case Asc(Mid(zf, i, 1))
Case Is > 0
a = a + 1           '英文字符
Case Else
a = a + 2           '中文字符
End Select

玉树TMD临风

wang1999 发表于 2014-4-26 14:38
这个算法有些情况下是有问题的
用你的这个算法试试下面的字符串
    Str = "ΑΒΓαβγ" '希腊字符

我这代码算出来是12，应该是多少？

玉树TMD临风

wang1999 发表于 2014-4-26 14:38
这个算法有些情况下是有问题的
用你的这个算法试试下面的字符串
    Str = "ΑΒΓαβγ" '希腊字符

不过我的代码把所有英文字符以外的都算双字节，你这些字母我也不知道是单还是双，所以用我的代码是按双字节算出来的