浜松の風景

VB 6.0 をまだまだ使っています。

CSVの取り込み処理を開発中、取り込み元のデータにタブコードが入っていることでの不具合。

文字の切り出しをしたけど、桁数が足りない。なぜ？というところから始まりましたが、タブコードが原因でした。

文字列の置換につかう「Replace」関数の利用で解決。

strTEST = Replace(strTEST, vbTab, "")

ちなみに、改行削除の場合も、おなじぐ「Replace」関数で対応。すべての改行コードに対応するには、こんな感じかな？

strTEST = Replace(strTEST, vbCr, "")
strTEST = Replace(strTEST, vbCrLf, "")
strTEST = Replace(strTEST, vbLf, "")

この3パターンのどれかで行けるはず。