Windows VB Mid ファイル内の検索

Windows Visual Basic において ファイル内の検索 とは以下を示します。

ファイル内の検索

  Sub データ生成(Filename As String)
    Dim i As Long
    Dim j As Long

    '初期処理
    initShori
    i = 1

    '各シートのタイトル、項目見出し設定
    Call setSheetTitle
    'ファイルオープン
    Open Filename For Input As #1

    Do Until EOF(1)
      '1行読込
      Line Input #1, sLine

      '指定した期間でのレポート取得失敗
      If Mid(sLine, 1, Len("ORA-")) = "ORA-" Then
          outputErrorAlertMessage
          "STATSPACKデータ取得エラー" &
          "ファイル名:" &
          ErrorFileName, MSG_SHUBETSU_ERROR

          GoTo END_FILE_READ
      End If

      '日付を取得
      If Mid(sLine, 1, Len("Begin Snap:"))
      = "Begin Snap:" Then
          get_YYYYMMDD_10g
      End If

      'Load Profileを取得
      If Mid(sLine, 1, Len("Load Profile"))
      = "Load Profile" Then
          Load_Profile 1
      End If

      i = i + 1

    Loop

  END_FILE_READ:

      Close #1

  End Sub

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