看小弟我用汉语写的vb代码
看我用汉语写的vb代码
Public int分录编号 As Integer '分录编号
Public int分录条数 As Integer '分录条数
Public int当前辅助号 As Integer
Public 分录辅助字符串 As String
Public str辅助往来单位信息 As String
Public str辅助部门信息 As String
Public str辅助个人信息 As String
Public str辅助产品信息 As String
Public str辅助项目信息1 As String '项目类别编号_项目编号_项目类别名称_项目名称
Public str辅助项目信息2 As String
Public str辅助项目信息3 As String
Public str辅助项目信息4 As String
Public str外币币种 As String
Public str外币金额 As String
Public str外币汇率 As String
Public str辅助金额 As String
Public str辅助日期 As String
Public int分录辅助条数 As Integer
Dim 分录辅助条数(2200) As Integer
Dim 辅助信息数组(2200, 50, 13) As String
Public Function int获取辅助条数() As Integer
Dim i As Integer
int获取辅助条数 = 0
For i = 1 To 49
If Val(辅助信息数组(int分录编号, i, 5)) <> 0 Then
int获取辅助条数 = i
End If
Next
End Function
Public Sub put写辅助信息()
If str辅助往来单位信息 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 1) = str辅助往来单位信息
If str辅助部门信息 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 2) = str辅助部门信息
If str辅助个人信息 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 3) = str辅助个人信息
If str辅助产品信息 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 4) = str辅助产品信息
If str辅助金额 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 5) = str辅助金额
If str辅助日期 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 6) = str辅助日期
If str辅助项目信息1 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 7) = str辅助项目信息1
If str辅助项目信息2 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 8) = str辅助项目信息2
If str辅助项目信息3 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 9) = str辅助项目信息3
If str辅助项目信息4 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 10) = str辅助项目信息4
If str外币币种 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 11) = str外币币种
If str外币汇率 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 12) = str外币汇率
If str外币金额 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 13) = str外币金额
clear清空当前辅助信息
分录辅助条数(int分录编号) = int分录辅助条数
End Sub
Public Sub get读辅助信息()
clear清空当前辅助信息
str辅助往来单位信息 = Trim(辅助信息数组(int分录编号, int当前辅助号, 1))
str辅助部门信息 = Trim(辅助信息数组(int分录编号, int当前辅助号, 2))
str辅助个人信息 = Trim(辅助信息数组(int分录编号, int当前辅助号, 3))
str辅助产品信息 = Trim(辅助信息数组(int分录编号, int当前辅助号, 4))
str辅助金额 = Trim(辅助信息数组(int分录编号, int当前辅助号, 5))
str辅助日期 = Trim(辅助信息数组(int分录编号, int当前辅助号, 6))
str辅助项目信息1 = Trim(辅助信息数组(int分录编号, int当前辅助号, 7))
str辅助项目信息2 = Trim(辅助信息数组(int分录编号, int当前辅助号, 8))
str辅助项目信息3 = Trim(辅助信息数组(int分录编号, int当前辅助号, 9))
str辅助项目信息4 = Trim(辅助信息数组(int分录编号, int当前辅助号, 10))
str外币币种 = 辅助信息数组(int分录编号, int当前辅助号, 11)
str外币汇率 = 辅助信息数组(int分录编号, int当前辅助号, 12)
str外币金额 = 辅助信息数组(int分录编号, int当前辅助号, 13)
int分录辅助条数 = Trim(分录辅助条数(int分录编号))
End Sub
Public Sub clear清空辅助信息()
str辅助往来单位信息 = ""
str辅助部门信息 = ""
str辅助个人信息 = ""
str辅助产品信息 = ""
str辅助金额 = ""
str辅助日期 = ""
str辅助项目信息1 = ""
str辅助项目信息2 = ""
str辅助项目信息3 = ""
str辅助项目信息4 = ""
str外币币种 = ""
str外币金额 = ""
str外币汇率 = ""
For i = 1 To 50
For j = 1 To 49
For K = 1 To 11
辅助信息数组(i, j, K) = ""
Next
Next
Next
End Sub
Public Sub clear清空当前辅助信息()
str辅助往来单位信息 = ""
str辅助部门信息 = ""
str辅助个人信息 = ""
str辅助产品信息 = ""
str辅助金额 = ""
str辅助日期 = ""
str辅助项目信息1 = ""
str辅助项目信息2 = ""
str辅助项目信息3 = ""
str辅助项目信息4 = ""
str外币币种 = ""
str外币金额 = ""
str外币汇率 = ""
End Sub
Public Sub 分析凭证信息字符串()
'"4200007_中铁建总公司财务部`_`_```1`3289885.47`20080804`^f"
Public int分录编号 As Integer '分录编号
Public int分录条数 As Integer '分录条数
Public int当前辅助号 As Integer
Public 分录辅助字符串 As String
Public str辅助往来单位信息 As String
Public str辅助部门信息 As String
Public str辅助个人信息 As String
Public str辅助产品信息 As String
Public str辅助项目信息1 As String '项目类别编号_项目编号_项目类别名称_项目名称
Public str辅助项目信息2 As String
Public str辅助项目信息3 As String
Public str辅助项目信息4 As String
Public str外币币种 As String
Public str外币金额 As String
Public str外币汇率 As String
Public str辅助金额 As String
Public str辅助日期 As String
Public int分录辅助条数 As Integer
Dim 分录辅助条数(2200) As Integer
Dim 辅助信息数组(2200, 50, 13) As String
Public Function int获取辅助条数() As Integer
Dim i As Integer
int获取辅助条数 = 0
For i = 1 To 49
If Val(辅助信息数组(int分录编号, i, 5)) <> 0 Then
int获取辅助条数 = i
End If
Next
End Function
Public Sub put写辅助信息()
If str辅助往来单位信息 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 1) = str辅助往来单位信息
If str辅助部门信息 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 2) = str辅助部门信息
If str辅助个人信息 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 3) = str辅助个人信息
If str辅助产品信息 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 4) = str辅助产品信息
If str辅助金额 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 5) = str辅助金额
If str辅助日期 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 6) = str辅助日期
If str辅助项目信息1 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 7) = str辅助项目信息1
If str辅助项目信息2 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 8) = str辅助项目信息2
If str辅助项目信息3 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 9) = str辅助项目信息3
If str辅助项目信息4 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 10) = str辅助项目信息4
If str外币币种 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 11) = str外币币种
If str外币汇率 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 12) = str外币汇率
If str外币金额 <> "" Then 辅助信息数组(int分录编号, int当前辅助号, 13) = str外币金额
clear清空当前辅助信息
分录辅助条数(int分录编号) = int分录辅助条数
End Sub
Public Sub get读辅助信息()
clear清空当前辅助信息
str辅助往来单位信息 = Trim(辅助信息数组(int分录编号, int当前辅助号, 1))
str辅助部门信息 = Trim(辅助信息数组(int分录编号, int当前辅助号, 2))
str辅助个人信息 = Trim(辅助信息数组(int分录编号, int当前辅助号, 3))
str辅助产品信息 = Trim(辅助信息数组(int分录编号, int当前辅助号, 4))
str辅助金额 = Trim(辅助信息数组(int分录编号, int当前辅助号, 5))
str辅助日期 = Trim(辅助信息数组(int分录编号, int当前辅助号, 6))
str辅助项目信息1 = Trim(辅助信息数组(int分录编号, int当前辅助号, 7))
str辅助项目信息2 = Trim(辅助信息数组(int分录编号, int当前辅助号, 8))
str辅助项目信息3 = Trim(辅助信息数组(int分录编号, int当前辅助号, 9))
str辅助项目信息4 = Trim(辅助信息数组(int分录编号, int当前辅助号, 10))
str外币币种 = 辅助信息数组(int分录编号, int当前辅助号, 11)
str外币汇率 = 辅助信息数组(int分录编号, int当前辅助号, 12)
str外币金额 = 辅助信息数组(int分录编号, int当前辅助号, 13)
int分录辅助条数 = Trim(分录辅助条数(int分录编号))
End Sub
Public Sub clear清空辅助信息()
str辅助往来单位信息 = ""
str辅助部门信息 = ""
str辅助个人信息 = ""
str辅助产品信息 = ""
str辅助金额 = ""
str辅助日期 = ""
str辅助项目信息1 = ""
str辅助项目信息2 = ""
str辅助项目信息3 = ""
str辅助项目信息4 = ""
str外币币种 = ""
str外币金额 = ""
str外币汇率 = ""
For i = 1 To 50
For j = 1 To 49
For K = 1 To 11
辅助信息数组(i, j, K) = ""
Next
Next
Next
End Sub
Public Sub clear清空当前辅助信息()
str辅助往来单位信息 = ""
str辅助部门信息 = ""
str辅助个人信息 = ""
str辅助产品信息 = ""
str辅助金额 = ""
str辅助日期 = ""
str辅助项目信息1 = ""
str辅助项目信息2 = ""
str辅助项目信息3 = ""
str辅助项目信息4 = ""
str外币币种 = ""
str外币金额 = ""
str外币汇率 = ""
End Sub
Public Sub 分析凭证信息字符串()
'"4200007_中铁建总公司财务部`_`_```1`3289885.47`20080804`^f"