FAQ
テキスト・ファイルの値を順に読み取る方法

ナレッジ番号:5449 | 登録日:2023/07/27 | 更新日:2024/12/02

【概要】

テキスト・ファイルの値をループ処理で順に読み取る方法を示します。


【手順】

  1. ArcMapを起動します。

  2. Visual Basic Editorを開きます。

  3. プロジェクト・エクスプローラ・ウィンドウで、Projectの下にあるArcMap Objects > ThisDocumentをダブルクリックし、コード・ウィンドウを開きます。

  4. コード・モジュールに次のコードをペーストします。

    
    Sub LoopText()
      Dim pMxdoc As IMxDocument
      Set pMxdoc = ThisDocument
      Dim pTable As ITable
      Dim pStandColl As IStandaloneTableCollection
      Dim pStandTab As IStandaloneTable
      Set pStandColl = pMxdoc.FocusMap
      Set pStandTab = pStandColl.StandaloneTable(0)
      Set pTable = pStandTab
      Dim pRow As IRow, pCursor As ICursor
      Set pCursor = pTable.Search(Nothing, False)
      Set pRow = pCursor.NextRow
    
      ' 各レコードの情報をメッセージボックスで表示します。
      Do Until pRow Is Nothing
        MsgBox pRow.Value(0) & " : " & CStr(pRow.Value(1))
        Set pRow = pCursor.NextRow
      Loop
    End Sub
    
    
  5. 次のようなCities.txtという名前のテキスト・ファイルを作成します。カラム名はダブル・クォート(")で囲み、各値はカンマ(,)で区切る必要があります。

    "CITY","POPULATION"
    Los Angeles,14234953
    New York,17834034

  6. Cities.txtをArcMapへ追加します。

  7. マクロを実行します。

    A:ArcMapで、ツール > マクロ > マクロと選択し、マクロ・ダイアログを表示します。

    B:マクロを選択し、実行をクリックします。

メタデータ

種類

機能

製品