内容索引:VB源码,字符措置惩罚,ASCII,字符转换
任意字符的ASCII码转换工具，鉴于VB6的源代码，能够把任意字符(数字、字母、汉字)转化成ascii码，也能够把ascii码还原成最初的字符。转化后的的结果(注：每一个字符之间用“/”间离隔)。
运用说明：一共三个大文本框，你也能够在第二个文本框输入ASCII码，点击还原后会还原回原来的内容，注意填写格式:/1/2/3/4
原理：举个例子，用asc("你")把“你”转化成ASCII码的值为：-15133 ， 用chr("-15133")把ASCII码值还原成“你”
Mid("hello", 5, 1),这个意思是：取hello中的值，5代表从第五个起头取,1代表取的值的长度。
任意字符的ASCII码转换工具，鉴于VB6的源代码 (1 folders, 0 files, 0 bytes, 11.94 KB in total.)
 hur.cn (1 folders, 0 files, 0 bytes, 11.94 KB in total.)
 ASCII转换 (0 folders, 6 files, 11.94 KB, 11.94 KB in total.)
ASCIIICO.ico 3.19 KB
Form1.frm 4.64 KB
Form1.frx 3.20 KB
MSSCCPRJ.SCC 190 bytes
工程1.vbp 703 bytes
工程1.vbw 49 bytes

'定义一个函数，把业务状况表的数据加载到字典里

Public Function AddDictionary(OriginalDictionary)

    Dim Path, CurrentWorkBook, CurrentWorkSheet, CurrentName

    Dim str1, str2, str3, str4, str5, str6

    Dim n

    n = 10

    '打开名称里含有业务状况表的表格

    Path = ThisWorkbook.Path & "\*业务状况表*"

    'Dir函数返回路径下的文件名称，再次调用自动查找下一个符合条件的文件

    CurrentName = Dir(Path)

    Set CurrentWorkBook = Workbooks.Open(ThisWorkbook.Path & "\" & CurrentName)

    Set CurrentWorkSheet = CurrentWorkBook.Worksheets(1)

    'VB字典的定义和应用！

    Set OriginalDictionary = CreateObject("Scripting.Dictionary")

    While CurrentWorkSheet.Cells(n, 1) <> ""

        str1 = "BD" & CurrentWorkSheet.Cells(n, 1)

        str2 = "BC" & CurrentWorkSheet.Cells(n, 1)

        str3 = "MD" & CurrentWorkSheet.Cells(n, 1)

        str4 = "MC" & CurrentWorkSheet.Cells(n, 1)

        str5 = "ED" & CurrentWorkSheet.Cells(n, 1)

        str6 = "EC" & CurrentWorkSheet.Cells(n, 1)

        OriginalDictionary.Add str1, CurrentWorkSheet.Cells(n, 3).Value

        OriginalDictionary.Add str2, CurrentWorkSheet.Cells(n, 4).Value

        OriginalDictionary.Add str3, CurrentWorkSheet.Cells(n, 5).Value

        OriginalDictionary.Add str4, CurrentWorkSheet.Cells(n, 6).Value

        OriginalDictionary.Add str5, CurrentWorkSheet.Cells(n, 7).Value

        OriginalDictionary.Add str6, CurrentWorkSheet.Cells(n, 8).Value

        n = n + 1

    Wend

    '关闭业务状况表

    CurrentWorkBook.Close

End Function

'定义一个函数，将基础项目定义的公式依逗号拆分

Public Function SplitString(m, l, CurrentWorkBook, ModelWorkSheet, CurrentWorkSheet, Dictionary, ThisWorkbook)

    Dim a, b, c, d, SumNumber, SubNumber

    Dim Crr, x, y, h, k 'h表示行次所在的列，k表示基础定义所在的列

    a = 1

    x = 1

    y = m

    SumNumber = 0

    SubNumber = 0

    '找出行次和基础定义所在的列

    Do While x < 12

    If Trim(ModelWorkSheet.Cells(l, x)) = "行次" Then

    h = x

    End If

    '基础项目定义的列开始！！！！！！！！！！！！！！！！！！

    If Trim(ModelWorkSheet.Cells(l, x)) = "基础项目定义" Then

    k = x

    Do While ModelWorkSheet.Cells(m, h) <> ""

    'k的值小于6和大于6从报表取值的列是不同的,因为加了基础项目定义的列

    If k < 6 Then

    ModelWorkSheet.Cells(m, k + 1) = CurrentWorkSheet.Cells(m, k + 1)

    Else

    ModelWorkSheet.Cells(m, k + 1) = CurrentWorkSheet.Cells(m, k)

    End If

    '基础定义的项拆分开始！

    If Left(ModelWorkSheet.Cells(m, k), 2) = "ED" Or Left(ModelWorkSheet.Cells(m, k), 2) = "EC" Then

    '把基础项目定义公式依据逗号拆分成一个一个的数组

    Crr = Split(ModelWorkSheet.Cells(m, k), ",")

    '对于每一个数组进行分析：+的部分放在SumNumber里，-的部分放在SubNumber里

    For i = 0 To UBound(Crr)

    '首先分析+的部分,a表示一个科目号码开始的位置（默认1），b表示结束的位置

    Do

    'INstr函数找出字符出现的第一个位置

    b = InStr(a, Crr(i), "+")

    If b = 0 Then

        If 0 = InStr(Crr(i), "-") Then

            b = Len(Crr(i)) + 1

            Else

            b = InStr(Crr(i), "-")

        End If

        SumNumber = Dictionary.Item(Mid(Crr(i), a, b - a)) + SumNumber

        Exit Do

        Else

        SumNumber = Dictionary.Item(Mid(Crr(i), a, b - a)) + SumNumber

        a = b + 1

     End If

     Loop While b <> 0

     '然后分析-的部分，a表示一个科目号码开始的位置，d表示结束的位置

    If InStr(Crr(i), "-") <> 0 Then

     c = InStr(Crr(i), "-") + 1

    Do

     d = InStr(c, Crr(i), "-")

     If d = 0 Then

        d = Len(Crr(i)) + 1

        SubNumber = SubNumber + Dictionary.Item(Mid(Crr(i), c, d - c))

        Exit Do

        Else

        SubNumber = SubNumber + Dictionary.Item(Mid(Crr(i), c, d - c))

        c = d + 1

     End If

    Loop While d <> 0

    End If

    '判断是否是第一个数组，第一个数组直接SumNumber - SubNumber，后面的数组需要判断扎差

    If i = 0 Then

    If Trim(ModelWorkSheet.Cells(m, 1)) = "存放同业款项" Or Trim(ModelWorkSheet.Cells(m, 6)) = "同业及其他金融机构存放款项" Then

    ModelWorkSheet.Cells(m, k + 2) = ModelWorkSheet.Cells(m, k + 2) + SumNumber - SubNumber

    ModelWorkSheet.Cells(m, k + 2) = ModelWorkSheet.Cells(m, k + 2) - ThisWorkbook.Worksheets("报表检核页").Cells(11, 13)

    Else

    ModelWorkSheet.Cells(m, k + 2) = ModelWorkSheet.Cells(m, k + 2) + SumNumber - SubNumber

    End If

    Else

    If SumNumber > SubNumber Then

    ModelWorkSheet.Cells(m, k + 2) = ModelWorkSheet.Cells(m, k + 2) + SumNumber - SubNumber

    End If

    End If

    '每一个数组分析完毕后都需要把a 、SumNumber、SubNumber重新赋值

    a = 1

    SumNumber = 0

    SubNumber = 0

    Next

    '基础定义的项拆分完毕！

    '计算公式的项赋值开始！

    Else

    If ModelWorkSheet.Cells(m, k) <> "" Then

    ModelWorkSheet.Cells(m, k + 2).Formula = "=" & ModelWorkSheet.Cells(m, k)

    End If

    '计算公式的项赋值完毕！

    End If

    '判断报表值和计算的结果是否相等，不相等则标记颜色区分

    If Round(Val(ModelWorkSheet.Cells(m, k + 1)), 2) <> Round(Val(ModelWorkSheet.Cells(m, k + 2)), 2) Then

    ModelWorkSheet.Cells(m, k + 1).Interior.ColorIndex = 3

    ModelWorkSheet.Cells(m, k + 2).Interior.ColorIndex = 3

    End If

    m = m + 1

    Loop

    'm的循环结束后需要把m重新赋值！

    m = y

    End If

    '基础项目定义的列结束！！！！！！！！！！！！！！！！！！

    x = x + 1

    Loop

    CurrentWorkBook.Close

End Function

将这个字符串1,0.378,"BV  ",0.0054,37.075,106.891,0.755中的数字和字符串提取出来。
直接代码
Private Sub Form_Click()
Dim s() As String
Dim t() As String
a = Text1.Text
Print a
b = Left(a, 7)
c = Mid(a, 9, 6)
d = Right(a, 27)
Print b
Print c
Print d
s = Split(b, ",")
t = Split(d, ",")
For i = 0 To 1
    Print s(i)
Next i
For i = 0 To 3
    Print t(i)
Next i
End Sub

由来

InnoSetup有一个重要功能就是调用外部DLL，它本身是用Delphi写的，带的Script也基本上类同Delphi，因此，挂Delphi DLL比较好，只是自带的Sample太过简单。传值返值一般的计算功能调用还是比较简单，但传递字符串还是很不同。网上转了转，五花八门说啥的都有，我的解题可能不太一样。思路是这样的：VB6用Byref传送字符串，Delphi用Var p1: Pchar，接收字符串，在DLL中处理字符串，然后通过 Var p2: Pchar，返回给VB6； 要注意一是DLL接收了不要改变原来的内存地址或指针，即便在DLL做了很多处理，最后返时也只能是将处理过的内容考贝到原来的地址。二是本地处理后要有一块连续的内存将处理过的字符串放进去，再考贝给p2，于是呢，程序就写成下面的样子：

处理

Delphi程序DLL

Function BackString(var p1: PAnsichar; var p2: PAnsichar): Integer; stdcall;

  var

    s: string;

    p: Pchar;

begin

  s := 'abcdefg' + strPas(p1);

  p := StrAlloc(255);

  StrPcopy(p, s);

  strPCopy(p2, p);

  StrDispose(p);

  BackString :=0;

end;

 

VB6程序调用DLL

Declare Function BackString Lib "G:\MyDelphi2010\InstaDll\InstaDll.Dll" (ByRef a1 As String, ByRef a2 As String) As Long

......

Private Sub Command1_Click()

    S1$ = "123456789012345678901234567890"

    S2$ = String$(255, "a")

    List1.Clear

    r = BackString(S1$, S2$)

    List1.AddItem (CStr(1) + " " + Trim(S2$))

End Sub

注：VB6 做个FORM，上面放一个Command Button，再放一个ListBOx

 

结尾

在编程环境下运行，会在ListBox1上看到返回字符串 abcdefg1234567........，其中abcdefg是DLL加上去的、1234567......是VB6送给它的。字符串操作是借助于内存完成的，不管它怎么变，最后把整块内存的东西返回去就是了，否则很容易引发怪毛病，毕竟是在不同的开发环境约定下交互操作。

 

补充

如果VB6送整数和字符串，Delphi DLL可写为：

Function BackString1(intParam1: Integer; var p2: PAnsichar): Integer; stdcall;

  var

    s: string;

    p: Pchar;

begin

  s := 'abcdefg ' + IntToStr(intParam1) + ' abcdefg';

  p := StrAlloc(255);

  StrPcopy(p, s);

  strPCopy(p2, p);

  StrDispose(p);

  BackString1 :=0;

end;

 

VB6相应的写为

Declare Function BackString1 Lib "G:\MyDelphi2010\InstaDll\InstaDll.Dll" (ByVal a1 As Long, ByRef a2 As String) As Long

Delphi的Integer型在VB6里用Long型，用错了返回值由于溢出而成负数、返非所欲的。

 

CSDN用的不熟，加了粗体H3标记，嗯，挺好。还有图像、图表、公式挺多功能的，以后慢慢的努力丰富博文内容和表现形式。