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