【VBA】テキストを取込み、数値だけを抽出する関数【TextToArray】

Excel/VBA

テキストファイルを読み込んで数値だけを抽出したい。そんな時に役立ちます。
 

やりたい事

 

こんなファイルが有るとする

これはYAMAHAルーターに対し、どこのトンネルがリンクアップになってるか~ のログファイル。
このトンネル番号たちに対してリブートするコマンドファイルを作りたいので、数値のみ抽出したいってのが今回やりたい事。

なので数値だけを抽出して配列に入れて返却させましょう!

TextToArray

 

参照の追加も特に不要なので、以下コピッペでOK。

さすがに数値同士がくっついてるって事は無いと思うので、大体のテキストファイルは上記で行けるはず。間にカンマやタブ、スペース等が入っていれば問題無し。

ちなみに拡張子は.txtでなくてもエディタで普通に開けるものなら何でも行けます。

呼び出し元はこんな感じ。いつものドラッグアンドドロップスタイルでファイル取込み

取り敢えず実行結果が分かりやすい様にMsgBox表示してみた。

実際の動き

 

以下実行結果↓

取り込みを行うテキストファイルによって様々癖があると思うので、必要であれば色々カスタマイズしてください(ᵔᴥᵔ)

コメント