Java端的Framework的大量代码都是重复用工具生成,例如接口类，数据类，Curl的接口类，本来这个工具就是用ACCESS VBA写的，是独立的项目。

     单体测试数据生成使用Excel VBA 生成，都是独立的，工具还是有要改进的地方，由简单到复杂吧和Linux Shell 一样！

      XML解释那可能比较有意思！

Dim gCheckPsFlg  As Boolean
Dim gErrLabel
Dim gErrMsg As String
Dim gErrNo As Long
Dim gRows As Long
Dim gCols As Long
Dim gMark As String
'初期処理
Sub Init()
    gRows = CLng(Worksheets("Para").Cells(1, 1))
    gCols = CLng(Worksheets("Para").Cells(2, 1))
    gMark = Worksheets("Para").Cells(3, 1)
End Sub
'メイン処理
Sub MainProcess()
    'マック情報取得処理
    Call Finder(gRows, gCols)
End Sub
Sub Main()

    'データチェック
    Call Check
           
    'エラーがない場合
    If gCheckPsFlg = True Then
        '初期処理
        Call Init
        'メイン処理
        Call MainProcess
    End If
   
    'ログ情報出力
    Call Term
End Sub
'ログ情報出力処理
Sub Term()

    'Logビュをくりあする
    Call ViewClear("Log")
   
    'エラーがある場合
    If gCheckPsFlg = False Then
        MsgBox "エラーがあります"
        'エラーNo出力
        Worksheets("Log").Cells(1, 1) = gErrNo
        'エラーラベル出力
        Worksheets("Log").Cells(1, 2) = gErrLabel
        'エラーメッセージ出力
        Worksheets("Log").Cells(1, 3) = gErrMsg
    End If
End Sub
Sub Check()
    Dim rType As Long
    'エラー有無フラク
    gCheckPsFlg = True
     'エラーメッセージ
    gErrMsg = ""
    'エラーラベル
    gErrLabel = ""
   
    'gRows データタイプエラーチェック
    rType = VarType(Worksheets("Para").Cells(1, 1))
    If gCheckPsFlg = True Then
        If rType <> 5 Then
            gCheckPsFlg = False
            gErrMsg = "データタイプエラー"
            gErrLabel = "gRows"
            gErrNo = 1
        End If
    End If
   
    'gCols データタイプエラーチェック
    rType = VarType(Worksheets("Para").Cells(2, 1))
    If gCheckPsFlg = True Then
        If rType <> 5 Then
            gCheckPsFlg = False
            gErrMsg = "データタイプエラー"
            gErrLabel = "gCols"
            gErrNo = 1
        End If
    End If
End Sub
'マック情報取得処理
Sub Finder(rows As Long, colums As Long)
    Dim r As Long
    Dim c As Long
    For r = 1 To rows
        For c = 1 To colums
            'ビュ
            If Worksheets("View").Cells(r, 1) = Worksheets("View").Cells(c, 2) Then
                'マック
                Worksheets("View").Cells(c, 3) = gMark
            End If
        Next c
    Next r
End Sub
'ビュクリア処理
Sub ViewClear(viewNms As String)
    'viewNmsが"Log"の場合
    If viewNms = "Log" Then
        'Logビュクリア処理
        Worksheets("Log").Cells.Clear
    End If
End Sub

      其实我想多说一句话，现在的日本人就是拿Java当COBOL用！语言变了，框架变了，思想个人看来，在一定范围内没什么变！就是，这种思想可以把COBOL写的比C还要复杂N倍，其实思想又是那么简单，有点以偏概全。

发表于 @ 2009年06月25日　16:29:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:Excel VBA 随手写的小工具 | 新一篇:VBA Vartype函数返回值含义