JIS编码转换(DM格式与JIS)

最新推荐文章于 2024-06-20 09:36:53 发布

Gdzhou

最新推荐文章于 2024-06-20 09:36:53 发布

阅读量2.2k

点赞数

分类专栏：編程資料文章标签： string function integer byte c

本文链接：https://blog.csdn.net/gdzhou/article/details/3095859

版权

这篇博客介绍了两个函数，JisToStr 和 StrToJis，用于将字符串在DM格式与JIS编码之间进行转换。通过ADODB.Stream对象处理二进制和文本数据，实现了从含有特殊字符的字符串到JIS编码的转换，以及从JIS编码回转到原始字符串的过程。涉及到的编码格式为'iso-2022-jp'。

摘要由CSDN通过智能技术生成

Function JisToStr(ByVal Str As String, Nbr As Integer) As String
On Error Resume Next
Dim Stm As ADODB.Stream
Dim StrByt() As Byte
Dim n01 As Integer
Dim m01 As Integer
Dim Asr01Str As String
Set Stm = New ADODB.Stream
Asr01Str = ""
m01 = 0
For n01 = 1 To Nbr Step 2
If Mid(Str, n01, 1) = "#" Then
Asr01Str = Asr01Str & Mid(Str, n01 + 1, 1)
ElseIf Mid(Str, n01, 1) = "" Then
Exit For
Else
ReDim StrByt(7)
StrByt(0) = 27
StrByt(1) = 36
StrByt(2) = 66
StrByt(3) = Asc(Mid(Str, n01, 1))
StrByt(4) = Asc(Mid(Str, n01 + 1, 1))
StrByt(5) = 27
StrByt(6) = 40
StrByt(7) = 66
If Err.Number = 3705 Then
Stm.Close
End If
Stm.Open
Stm.Type = adTypeBinary
St