本文使用「署名 4.0 国际 (CC BY 4.0)」许可协议，欢迎转载、或重新修改使用，但需要注明来源。 [署名 4.0 国际 (CC BY 4.0)](https://creativecommons.org/licenses/by/4.0/deed.zh)

本文作者: 苏洋

创建时间: 2011年07月13日
统计字数: 2630字
阅读时间: 6分钟阅读
本文链接: https://soulteary.com/2011/07/13/vb%E6%B7%B7%E5%90%88%E5%AD%97%E4%B8%B2%E7%9A%84%E6%88%AA%E6%96%AD.html

-----


# [VB]混合字串的截断

[![demo-for-nc-text](https://attachment.soulteary.com/2011/07/13/demo-for-nc-text.png "demo-for-nc-text")](https://attachment.soulteary.com/2011/07/13/demo-for-nc-text.png)



混合字串概念上是指编码一致的中英或者说是Latin+GBK,Ascii+UniCode.
通俗的说就是中英混合字串的截断,当然GBK包含CJK(中日韩文字),通俗准确的说是单双字节字符混合字串。

其实用VS的话,可以引用SYSTEM.TEXT,然后使用encoding来直接操作字串,但是笔记本上实在跑不动VS2010...PHP的话,则可以直接用正则+mb_XXX函数来搞..
为了本上的PHP环境,为了本上刚刚安装的石器时代(自己玩的单机)..咬了咬牙,不安VS了,忍痛安装了VB6精简版(10MB)..
很久木有写VB CODE了..都快忘记鸟...起手居然写了" function FirCut(){..."汗.
下面的代码应该很好修改优化提高效率.不过应该已经够用了...

```vb
'MAX BYTES EACH LINE.
Private Const MAX_ONE_LINE As Byte = 23 * 2

Private Sub FirCut(strContent As String)

    Dim bLen    As Byte: bLen = 0

    Dim strTemp As String

    Do While LenB(StrConv(strContent, vbFromUnicode)) > 0

        strTemp = StrConv(MidB$(StrConv(strContent, vbFromUnicode), 1, MAX_ONE_LINE), vbUnicode)

        bLen = LenB(StrConv(strTemp, vbFromUnicode))

        'echo result by yourself
        lstEvent.AddItem strTemp

        If LenB(StrConv(strContent, vbFromUnicode)) >= MAX_ONE_LINE Then

            If AscB(MidB$(StrConv(strContent, vbFromUnicode), MAX_ONE_LINE, 1)) Then
                strContent = StrConv(MidB$(StrConv(strContent, vbFromUnicode), MAX_ONE_LINE + 1, LenB(StrConv(strContent, vbFromUnicode)) - 1), vbUnicode)
            Else
                strContent = StrConv(MidB$(StrConv(strContent, vbFromUnicode), MAX_ONE_LINE, LenB(StrConv(strContent, vbFromUnicode))), vbUnicode)
            End If

        Else

            Exit Do

        End If

    Loop

End Sub
```

话说为啥要写这个呢,想起来了,这个主要用于南茜Nancy18-19基于SHANE007的HOOK汉化工具的字符处理.
007大神搞定的那个工具似乎在这两款游戏上有点不支持,
他自己的话是这么说的:

> 有一个特别注意点，今天才发现的，文本每行最多为24个全角汉字（或48个半角英文），但是每行最后1个字符不能为全角汉字，就是说实际上文本每行最多为23个全角汉字，最后要加2个半角空格。如果不满23个全角汉字就要换行就要补相应的半角空格。否则游戏崩溃。一个画面最多可输出约92个汉字（在目前大字体的情况下）。 

所以，上面的代码就变成了下面的样子：

```vb
'每行允许汉字数目
Private Const MAX_ONE_LINE As Byte = 23 * 2
'23汉字后补助的空格数量
Private Const FIX_SPACES   As Byte = 1 * 2 

Private Sub FirCut(strContent As String)

    Dim bLen    As Byte: bLen = 0

    Dim strTemp As String

    Do While LenB(StrConv(strContent, vbFromUnicode)) > 0

        strTemp = StrConv(MidB$(StrConv(strContent, vbFromUnicode), 1, MAX_ONE_LINE), vbUnicode)

        bLen = LenB(StrConv(strTemp, vbFromUnicode))

        strTemp = strTemp & Space$(MAX_ONE_LINE - bLen) & Space$(FIX_SPACES)
'echo by yourself
        lstEvent.AddItem strTemp

        If LenB(StrConv(strContent, vbFromUnicode)) >= MAX_ONE_LINE Then

            If AscB(MidB$(StrConv(strContent, vbFromUnicode), MAX_ONE_LINE, 1)) Then
                strContent = StrConv(MidB$(StrConv(strContent, vbFromUnicode), MAX_ONE_LINE + 1, LenB(StrConv(strContent, vbFromUnicode)) - 1), vbUnicode)
            Else
                strContent = StrConv(MidB$(StrConv(strContent, vbFromUnicode), MAX_ONE_LINE, LenB(StrConv(strContent, vbFromUnicode))), vbUnicode)
            End If

        Else

            Exit Do

        End If

    Loop

End Sub
```

如果你看过代码，会发现没有对92个字符进行处理，也没有对如果换行的时候出现</n> 这类字符的情况出现处理。
是的，或许这个代码需要安装了这个游戏的人去试验，遇到那个问题需要怎么做，如果译文翻页数目大于原文翻页数目会怎么样等。
我没有想下载那个游戏，也知道完全木有精力去调试007留下的HOOK TOOLS.
所以,代码给出来了,哪位愿意继续做就接着呗。
最后上传一个没有进行92字长判断和是否截断分页的DEMO程序，谁想下载看是神马意思就下了玩玩。

文件下载:[download id="74"]