Tera Term のススメ

• CSV を strdim 形式の外部ファイルに変換するマクロ
  • マクロの目的
  • 利用可能環境
    • Teraterm
  • マクロの使い方
    • 実行タイミング
    • マクロの指定方法
      • ttpmacro.exe を利用する場合
      • ttermpro.exe を利用する場合
      • メニューから実行する場合
• コード
  • 著作権情報
    • 著作権者
    • ライセンス
    • 関連情報
  • サンプルコード
    • ファイルダウンロード
    • 想定するフォルダ構成
    • コピペ用
  • 備考

CSV を strdim 形式の外部ファイルに変換するマクロ

マクロの目的

利用可能環境

Teraterm

マクロの使い方

実行タイミング

マクロの指定方法

ttpmacro.exe を利用する場合

ttermpro.exe を利用する場合

メニューから実行する場合

コード

著作権情報

著作権者

ライセンス

関連情報

サンプルコード

ファイルダウンロード

想定するフォルダ構成

csvconv.ttl
├─ dat/
└─ tmp/

コピペ用

#1_Environment,2_Protocol,3_hostname,4_IPaddr,5_Port,6_Username,7_etc
本番,ssh2,serv01,192.168.0.1,22,root,sample
本番,rdp,win01,192.168.0.2,3389,administrator,
開発,telnet,switch01,192.168.0.3,23,admin,

; CSV を strdim 形式の外部ファイルに変換するマクロ

; File: csvconv.ttl
; Description: CSV を strdim 形式の外部ファイルに変換するマクロ
; Environment: generic
; Update: 2019/8/12
; Author: Kazuya Jimba

;;; 環境設定 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

comma = ','

_line_count = 0
_tmp_count  = 0

; ディレクトリ
_output_dir = 'dat'
_tmp_dir = 'tmp'

; ファイル
_src_file  = 'example.csv'
_dest_file = 'csvconvert.dat'

_field_name_1 = '_Environment'
_field_name_2 = '_Protocol'
_field_name_3 = '_hostname'
_field_name_4 = '_IPaddr'
_field_name_5 = '_Port'
_field_name_6 = '_Username'
_field_name_7 = '_etc'

_output_field_1 = 'field1.dat'	; 1_Environment
_output_field_2 = 'field2.dat'	; 2_Protocol
_output_field_3 = 'field3.dat'	; 3_hostname
_output_field_4 = 'field4.dat'	; 4_IPaddr
_output_field_5 = 'field5.dat'	; 5_Port
_output_field_6 = 'field6.dat'	; 6_Username
_output_field_7 = 'field7.dat'	; 7_etc

; パス
makepath _src_path _output_dir _src_file
makepath _dst_path _output_dir _dest_file

makepath _tmp_f1_path _tmp_dir    _output_field_1
makepath _tmp_f2_path _tmp_dir    _output_field_2
makepath _tmp_f3_path _tmp_dir    _output_field_3
makepath _tmp_f4_path _tmp_dir    _output_field_4
makepath _tmp_f5_path _tmp_dir    _output_field_5
makepath _tmp_f6_path _tmp_dir    _output_field_6
makepath _tmp_f7_path _tmp_dir    _output_field_7

;;; メイン処理 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; 出力先の存在確認
targetname = _output_dir
call fnChkFile
if result != 1 then
  sprintf "Not exist directory. (%s)" _output_dir
  messagebox inputstr 'Error'
  end
endif

targetname = _tmp_dir
call fnChkFile
if result != 1 then
  sprintf "Not exist directory. (%s)" _tmp_dir
  messagebox inputstr 'Error'
  end
endif

; ファイルの存在確認
targetname = _src_path
call fnChkFile

; 存在する場合のみ実行
if result == 0 then
  sprintf "%s が存在しません。" _src_path
  messagebox inputstr 'Error'
  end

elseif result == 2 then
  ; テンポラリファイルオープン
  filecreate destfile1 _tmp_f1_path
  filecreate destfile2 _tmp_f2_path
  filecreate destfile3 _tmp_f3_path
  filecreate destfile4 _tmp_f4_path
  filecreate destfile5 _tmp_f5_path
  filecreate destfile6 _tmp_f6_path
  filecreate destfile7 _tmp_f7_path

  fileopen srcfile _src_path 0
  while 1
    ; 一行読み込み
    filereadln srcfile workline
    if result == 1 then 
          break
    endif

    ; コメント行なら無視
    strscan workline '#'
    if result > 0 then
      continue
    endif

    ; 読み込んだ行をフィールドごとにテンポラリ生成
    strsplit workline comma

    filewriteln destfile1 groupmatchstr1
    filewriteln destfile2 groupmatchstr2
    filewriteln destfile3 groupmatchstr3
    filewriteln destfile4 groupmatchstr4
    filewriteln destfile5 groupmatchstr5
    filewriteln destfile6 groupmatchstr6
    filewriteln destfile7 groupmatchstr7

    ; 生成した行をカウント
    _line_count = _line_count + 1

    ; ファイル最後まで繰り返す
  endwhile

  ; テンポラリファイルクローズ
  fileclose destfile1
  fileclose destfile2
  fileclose destfile3
  fileclose destfile4
  fileclose destfile5
  fileclose destfile6
  fileclose destfile7

  ; ファイルクローズ
  fileclose srcfile

  ; 変換データ生成
  filecreate destpath _dst_path

  ; フィールド 1
  _field_name = _field_name_1
  _destfile   = destfile1
  _tmp_f_path = _tmp_f1_path
  call DestFileWriteln

  ; フィールド 2
  _field_name = _field_name_2
  _destfile   = destfile2
  _tmp_f_path = _tmp_f2_path
  call DestFileWriteln

  ; フィールド 3
  _field_name = _field_name_3
  _destfile   = destfile3
  _tmp_f_path = _tmp_f3_path
  call DestFileWriteln

  ; フィールド 4
  _field_name = _field_name_4
  _destfile   = destfile4
  _tmp_f_path = _tmp_f4_path
  call DestFileWriteln

  ; フィールド 5
  _field_name = _field_name_5
  _destfile   = destfile5
  _tmp_f_path = _tmp_f5_path
  call DestFileWriteln

  ; フィールド 6
  _field_name = _field_name_6
  _destfile   = destfile6
  _tmp_f_path = _tmp_f6_path
  call DestFileWriteln

  ; フィールド 7
  _field_name = _field_name_7
  _destfile   = destfile7
  _tmp_f_path = _tmp_f7_path
  call DestFileWriteln

  fileclose destpath

endif


;;; 終了処理 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

end

;;; サブルーチン ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

:fnChkFile
; #################################
; 変数 targetname 内の文字列がファイルかフォルダかを判定するサブルーチン
; result
; 0 = 対象は存在しなかった。
; 1 = 対象はフォルダだった。
; 2 = 対象はファイルだった。
; #################################

filesearch targetname
if result = 1 then
    ; 対象が存在する場合

    ; フォルダであるか確認する
    foldersearch targetname 
    if result = 1 then
        ; フォルダの場合 (存在する対象がフォルダである)
        result = 1

    else
        ; ファイルの場合 (存在するがフォルダではない)
        result = 2
    endif

else
    ; 対象が存在しない場合
    result = 0

endif

return

:DestFileWriteln
; #################################
; フィールドごとに出力ファイルへ書き出すサブルーチン
; 呼び出す前に、以下の変数を定義する必要がある
;  _field_name = _field_name_X
;  _destfile   = destfileX
;  _tmp_f_path = _tmp_fX_path
; #################################

sprintf "strdim %s %d" _field_name _line_count
filewriteln destpath inputstr

fileopen _destfile _tmp_f_path 0
_tmp_count = 0

while 1
  ; 一行読み込み
  filereadln _destfile workline
  if result == 1 then
        break
  endif

  sprintf "%s[%d] = '%s'" _field_name _tmp_count workline
  filewriteln destpath inputstr

  _tmp_count = _tmp_count + 1

endwhile
fileclose _destfile
filewriteln destpath ''

return

備考