信息发布软件,b2b软件,广告发布软件

标题: VB.NET字节动态检验您不得不学会的超级方法 [打印本页]
作者: 群发软件    时间: 2017-5-20 23:10
标题: VB.NET字节动态检验您不得不学会的超级方法
本帖最后由 群发软件 于 2017-5-20 23:12 编辑

　Function Verify(ByVal VerifyString As String) As String
校验规则：
　　第一个字节与字节“00”异或，结果与第二个字节异或，以此类推，至最后一个字节，并将最后异或结果表达为16进制ASCII字符
　　例：
　　bn012000000000012008-01-15 20:42:3000c3@@@SO2,0,,BB,;NOx,0,,BB,;烟尘,0,,BB,;动压,0,,BB,;温度,0,,BB,;静压,0,,BB,;O2,0,,BB,;流速,0,;H2O,6.5,;流量,0,;过量空气系数,1,;SO2折算,0,;NOx折算,0,;烟尘折算,0,;SO2排放率,0,;NOx排放率,0,;烟尘排放率,0,;tek
　　其校验码为：20 Dim ChkXor = Encoding.Default.GetBytes(VerifyString)
Dim len As Integer = ChkXor.Length
Dim i As Integer
Dim ChkXorResult = "00"
Dim curByte As Byte
For i = 0 To len - 1
curByte = ChkXor(i)
If curByte <> 0 Then
ChkXor(i) = CByte(curByte Xor ChkXorResult)
End If
ChkXorResult = ChkXor(i)
Next i
Verify = Hex(ChkXorResult)
End Function

  在VB.net中，系统提供了Substring这个功能，但是它是按照字符串的个数来截取字符串的(具体用法我前面有文章提到，此处跳过)。

    因为Oracle中创建table时，指定的字段的长度是按照字节数来计算的，所以在VB.NET中，想要控制insert的字段值的长度不超长，就需要一个对字符串进行截取。
    例如：我们某个字段A的属性为VARCHAR2(100), 故最多只能存储100字节长度的字符串。当我们存入一个字符串，含有100个字符，但是（按照UTF8编码方式）其中有一个汉字(占3字节)或者西文字符（如ó，占2字节）时，这个字符串的字节长度就超过100，insert就不成功。
    为此，我们通常的做法是先将该字符串进行一个截取，再insert，不过Substring在这里就达不到理想的效果了。本人在此提供一个按字符截取的function，仅供参考。
    最简单的做法当然是对字符串做遍历，然后按字符一个一个的数，然后取得所需的长度。但是当一个字符串非常大的时候，这样数就会有performance的问题，所以，建议用二分法来做，即一半一半的取。
    Function如下：
    '''
    ''' 按字节截取字符串
    '''
    '''接收需要截取的字符串
    '''需要截取的长度
    '''
    '''
    Public Function strCutOut(ByVal p_str As String, ByVal p_len As Integer) As String
        Dim strNew As String = String.Empty
        Try
            Dim intLenbyByte As Integer = System.Text.Encoding.UTF8.GetByteCount(p_str) '按照UTF8编码方式取得p_str的字节数
            If intLenbyByte <= p_len Then
                strNew = p_str
                Return strNew
            End If

            Dim intWholeLenByCha As Integer = p_str.Length '按字符个数计算总长度
            Dim intWholeLenByByte As Integer = 0           '按字符字节数计算总长度
            Dim intHalfLenByCha As Integer = 0             '因为用的是二分法，所以存储每次所需取得的字符个数的一半
            Dim intLastIndexByCha As Integer = 0           '上一次计算时的字符的个数

            For i = 0 To p_str.Length - 1
                If i = 0 Then
                    strNew = p_str.Substring(0, intWholeLenByCha / 2)
                    intHalfLenByCha = intWholeLenByCha / 2
                Else
                    strNew = p_str.Substring(0, i)
                End If

                intWholeLenByByte = System.Text.Encoding.UTF8.GetByteCount(strNew)

                If intWholeLenByByte = p_len Then
                    Return strNew
                ElseIf intWholeLenByByte < p_len Then
                    intLastIndexByCha = i
                    intHalfLenByCha = (intWholeLenByCha - (i + 1)) / 2 '总字符长度需要减的字符个数应该是index i +1
                    i = i + intHalfLenByCha
                Else
                    If intLastIndexByCha = i - 1 Then '满足if条件时表明特殊字符占多个字节，且刚好卡在临界位
                        strNew = p_str.Substring(0, intLastIndexByCha)
                        Return strNew
                    End If
                    i = intLastIndexByCha + intHalfLenByCha / 2
                    intHalfLenByCha = intHalfLenByCha / 2
                End If
            Next

            Return strNew
        Catch ex As Exception
            Return ex.ToString
        End Try
    End Function


    注：不难理解，按上面的举例来说，当一个西文字符刚好卡在第100,101位的时候，所返回的就是一个字节长度为99的字符串，或者当一个汉字卡在第99,100，101位的时候，返回的就是一个字节长度为98的字符串。
    此function对于含有占多位字节的字符的字符串的截取比较有用，所以，不含特殊字符的字符串的截取，用Substring就ok。
Web应用程序在浏览器中显示字符串时，由于显示长度的限制，常常需要将字符串截取后再进行显示。但目前很多流行的语言，如C#、Java内部采用的都是Unicode 16（UCS2）编码，在这种编码中所有的字符都是两个字符，因此，如果要截取的字符串是中、英文、数字混合的，就会产生问题，如下面的字符串：
     上面的字符串既有汉字，又有英文字符和数字。如果要截取前6个字节的字符，应该是”a加b等"，但如果用Substring方法截取前6个字符就成了"a加b等于c"。产生这个问题的原因是将Substring方法将双字节的汉字当成一个字节的字符（UCS2字符）处理了。 要解决这个问题的方法是首先得到该字符串的UCS2编码的字节数组，如下面的代码如下：

    然后从第一个字节开始扫描，对于一个英文或数字字符，UCS2编码的第一个字节是相应的ASCII，第二个字节是0，如a的UCS2编码是97  0，而汉字两个字节都不为0，因此，可以利于UCS2编码的这个规则来计算实际的字节数，为了更方便，将按字节长度截取字符串的方法注册为String类的扩展方法，实现代码如下：

     在上面的代码中，如果最后要截取奇数个字符（以字节为单位），并且当最后一个字符是字母或数字，则保留该字符，如果是汉字，说明这个汉字被截了一半，则去掉这个汉字。

     可以使用下面的代码来截取字符串：
  • String subStr = s.bSubstring(6);  //  substr的值是"a加b等"


补充，用VB.NET实现：
  • Public Module StringExt
  •     Public Function bSubstring(ByVal s As String, ByVal length As Integer) As String
  •         Dim bytes As Byte() = System.Text.Encoding.Unicode.GetBytes(s)
  •         Dim n As Integer = 0
  •         ' 表示当前的字节数
  •         Dim i As Integer = 0
  •         ' 要截取的字节数
  •         While i < bytes.GetLength(0) AndAlso n < length
  •             ' 偶数位置，如0、2、4等，为UCS2编码中两个字节的第一个字节
  •             If i Mod 2 = 0 Then
  •                 n += 1
  •                 ' 在UCS2第一个字节时n加1
  •             Else
  •                 ' 当UCS2编码的第二个字节大于0时，该UCS2字符为汉字，一个汉字算两个字节
  •                 If bytes(i) > 0 Then
  •                     n += 1
  •                 End If
  •             End If
  •             i += 1
  •         End While
  •         ' 如果i为奇数时，处理成偶数
  •         If i Mod 2 = 1 Then
  •             ' 该UCS2字符是汉字时，去掉这个截一半的汉字
  •             If bytes(i) > 0 Then
  •                 i = i - 1
  •             Else
  •                 ' 该UCS2字符是字母或数字，则保留该字符
  •                 i = i + 1
  •             End If
  •         End If
  •         Return System.Text.Encoding.Unicode.GetString(bytes, 0, i)
  •     End Function
  • End Module



作者: 261741908    时间: 2017-5-27 08:01
挺多，客服很耐心，有导师在线指导，我这个菜鸟也能开店了，哈哈！还没有货品上架，还需要更进一步帮助，请给力支持哦！5分好评！
作者: a5206662    时间: 2017-6-2 05:15
心，有耐心，很满意。服务很到位。
作者: meilifc001    时间: 2017-6-2 06:32
选到有自己中意的模板！
作者: aluoting    时间: 2017-6-2 06:41
谢谢，共同发展
作者: huanyili998    时间: 2017-6-7 20:52
功能真好，太棒了
作者: mmgg    时间: 2017-6-11 11:06
情的服务态度点个赞！下次有需要还会来！~
作者: ufo50200    时间: 2017-6-12 06:04
，而且服务很好。值得信赖。
作者: 乱世扶稣    时间: 2017-6-16 13:27
做了一下，还不错，挺简单。售后人员都很耐心地讲解！也非常的专业！视频讲解的也很道奇！点个赞！



欢迎光临 信息发布软件,b2b软件,广告发布软件 (http://postbbs.com/) Powered by Discuz! X3.2