Windows VB ReDim 文字の検索

Windows Visual Basic において ReDim 文字の検索 とは以下を示します。

ReDim 文字の検索

  Sub SGA_breakdown_difference(ByVal fileno As Integer)

    '3行読込
    Call inc_offset(1, 3)

    ' Oracle10g format 配列の宣言
    Dim sLineCol() As String
    ReDim sLineCol(4)   ' #0 Pool           1-7     6
                        ' #1 Name           8-38    30
                        ' #2 Begin value    39-55   16
                        ' #3 End value      56-72   16
                        ' #4 % Diff         73-80   7

    Do
      ' 1行読み込み
      Line Input #fileno, sLine

      ' Oracle10g format 配列に値を格納
      sLineCol(0) = Mid(sLine, 1, 6)
      sLineCol(1) = Mid(sLine, 8, 30)
      sLineCol(2) = Mid(sLine, 39, 16)
      sLineCol(3) = Mid(sLine, 56, 16)
      sLineCol(4) = Mid(sLine, 73, 7)

      '検索文字存在フラグ
      iExistFlg = 0

       '終了判断 oracle10g format
      If Mid(sLine, 1,
      Len("          ----------------------------------
      ---------------------------"))
      = "          ------------------------------------
      -------------------------" Then
          iExistFlg = 2
      End If

      For iMemoryIdx
      = COL_MEM_CACHE_BUFFER To UBound(vMemoryAry)
        If vMemoryAry(iMemoryIdx).category
        = sLineCol(0) And vMemoryAry(iMemoryIdx).name
        = sLineCol(1) Then
            iExistFlg = 1
            GoTo END_SGA_SEARCH_LOOP
        End If
      Next iMemoryIdx

  END_SGA_SEARCH_LOOP:
      '検索文字が一致する 場合
      If iExistFlg = 1 Then
          vMemoryAry(iMemoryIdx).end_b_size = sLineCol(3)                                                       'End value(bytes単位)
      '検索文字が一致しない かつ 終了条件でない 場合
      ElseIf iExistFlg = 0 Then
          'End value(bytes単位)
          vMemoryAry(COL_MEM_OTHERS).end_b_size
          = vMemoryAry(COL_MEM_OTHERS).end_b_size + sLineCol(3)
      End If

      ' 終了判断
      If iExistFlg = 2 Then
          GoTo END_SGA_LOOP
      End If
    Loop
  END_SGA_LOOP:

    Worksheets("メモリ").Cells(iDayNo
    + DAY_NO_OFFSET + ROW_OFFSET, 1).NumberFormatLocal = "@"
    Worksheets("メモリ").Cells(iDayNo
    + DAY_NO_OFFSET + ROW_OFFSET, 1) = YYYYMMDD

    For ivm = COL_MEM_CACHE_BUFFER To MAX_COL_MEM
      Worksheets("メモリ").Cells(iDayNo
      + DAY_NO_OFFSET + ROW_OFFSET, ivm + COL_OFFSET)
      = vMemoryAry(ivm).end_b_size / 1024
    Next ivm
  End Sub

ご訪問頂き有難う御座います。 当サイトを効率良く使うためにまずは FrontPage を見て下さい。 検索方法、一覧表示などの各情報を纏めています。
当サイトの説明 → Frontpage