本帖最后由 群发软件 于 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）编码，在这种编码中所有的字符都是两个字符，因此，如果要截取的字符串是中、英文、数字混合的，就会产生问题，如下面的字符串：- String s = "a加b等于c，如果a等1、b等于2，那么c等3";
上面的字符串既有汉字，又有英文字符和数字。如果要截取前6个字节的字符，应该是”a加b等"，但如果用Substring方法截取前6个字符就成了"a加b等于c"。产生这个问题的原因是将Substring方法将双字节的汉字当成一个字节的字符（UCS2字符）处理了。 要解决这个问题的方法是首先得到该字符串的UCS2编码的字节数组，如下面的代码如下：
- byte[] bytes = System.Text.Encoding.Unicode.GetBytes(s);
然后从第一个字节开始扫描，对于一个英文或数字字符，UCS2编码的第一个字节是相应的ASCII，第二个字节是0，如a的UCS2编码是97 0，而汉字两个字节都不为0，因此，可以利于UCS2编码的这个规则来计算实际的字节数，为了更方便，将按字节长度截取字符串的方法注册为String类的扩展方法，实现代码如下：
- public static class StringExt
- {
- public static String bSubstring(this string s, int length)
- {
- byte[] bytes = System.Text.Encoding.Unicode.GetBytes(s);
- int n = 0; // 表示当前的字节数
- int i = 0; // 要截取的字节数
- for (; i < bytes.GetLength(0) && n < length; i++)
- {
- // 偶数位置，如0、2、4等，为UCS2编码中两个字节的第一个字节
- if (i % 2 == 0)
- {
- n++; // 在UCS2第一个字节时n加1
- }
- else
- {
- // 当UCS2编码的第二个字节大于0时，该UCS2字符为汉字，一个汉字算两个字节
- if (bytes > 0)
- {
- n++;
- }
- }
- }
- // 如果i为奇数时，处理成偶数
- if (i % 2 == 1)
- {
- // 该UCS2字符是汉字时，去掉这个截一半的汉字
- if (bytes > 0)
- i = i - 1;
- // 该UCS2字符是字母或数字，则保留该字符
- else
- i = i + 1;
- }
- return System.Text.Encoding.Unicode.GetString(bytes, 0, i);
- }
- }
在上面的代码中，如果最后要截取奇数个字符（以字节为单位），并且当最后一个字符是字母或数字，则保留该字符，如果是汉字，说明这个汉字被截了一半，则去掉这个汉字。
可以使用下面的代码来截取字符串：
- 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
|( 京ICP备09078825号 )
发表于 2017-5-20 23:10:30
收藏
发表于 2017-6-11 11:06:33
