

VBAからVBスクリプトへの移植作業をしています。
テキストファイル中に改行コード \r\n と \n が混在しているのですが、
\r\n までを1行として取得したいです。
VBAだと Line Input で取得できたのですが、
VBScriptの場合、FileSystemObject.OpenTextFileで開き .ReadLine で読み込むことになりますが、
ReadLineは \n も行の終端とされてしまい、本来1行のデータが複数行に分かれて読み込まれてしまいます。
.ReadAllで一旦すべてを取得してから Split("\r\n") で分割するという方法は
ファイルサイズが膨大だと負荷が掛かるので避けたいです。
\n は、これはこれでデータとして必要なので、削除することはできません。
負荷が掛からず、良い方法があればご教授頂きたく思います。
よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
>負荷が掛からず、良い方法があ
何に対しての負荷なんですかね?
そもそも、スクリプト言語を選んだ事自体、パフォーマンスを心配するなら、違うでしょう。それに splitでやるにせよ、正規表現を使う方法が、一般的です。JScript には、compile などと言うパフォーマンスを改善するメソッドも用意されています。そういった、テクノロジーの選択も、プログラマーの資質であり、腕の見せ所です。
ちなみに、いろんな方法がありますが、オブジェクト指向の言語であれば、他のフレームワークや、COMを利用するのも、手段としては、取得しておくべき、技術です。
例えばADOを使う方法。古くて、新しい方法です。
http://msdn.microsoft.com/ja-jp/library/jj250065 …
ストリームに格納し、それを操作する方法を考えれば、VBAでも、VBSでも他の言語でも、同じように扱えるわけです。
http://msdn.microsoft.com/ja-jp/library/jj249729 …
http://msdn.microsoft.com/ja-jp/library/jj249148 …
定数 値 説明
adCR 13 復帰を示します。
adCRLF -1 既定値。復帰改行を示します。
などとなっています。
この手の質問は、何度も投稿されています。
No.2
- 回答日時:
>ファイルサイズが膨大だと負荷が掛かる
1Gまでくらいなら問題ないです。
どうしてもイヤというなら、Readメソッドで文字数を
指定し、分割しながら処理すれば如何です?
Dim ZEN '前回テキスト
Dim ARY '分割した配列
Dim FLG '最終要素が有効かを示す
Dim CNT '配列の要素数
Dim IDX '配列のインデックス
Dim TXS 'TextStream
--- 中略 ---
Do Until TXR.AtEndOfStream
'前回の残りに新しいデータを読み込む
ZEN = ZEN & TXR.Read(10000)
'復帰改行で分割する
ARY = Split(ZEN,vbNewLine)
'要素数を記録する
CNT = UBound(ARY)
テキストの最後が復帰改行か調べる
If Right(ZEN, 2) = vbNewLine _
Or TXR.AtEndOfStream Then
'最後の要素は有効
FLG = True
'残るデータは無い
ZEN = ""
Else
'最後のデータは無効(次回に回す)
FLG = False
'最後の要素を次回に送る
ZEN = ARY(CNT)
'要素数を一つ減らす
CNT = CNT - 1
End If
'1行ずつの処理
For IDX = 0 To CNT
★ここに任意の処理を書く
Next
Loop
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBSにて改行コードの検出・置換
Visual Basic(VBA)
-
1行ごとに取得して、その改行文字が何か知る方法
Visual Basic(VBA)
-
「VBScript」ADODB.Streamにおけるファイル読み込みについて(他
Microsoft ASP
-
-
4
VBSでソート&ファイル分割
その他(プログラミング・Web制作)
-
5
エクセルVBA 大容量CSVファイルの読み込みが遅い
Visual Basic(VBA)
-
6
エクセルVBA 2千万行のCSVファイルを開きたい
Visual Basic(VBA)
-
7
100万行のCSVを10万行ずつのファイルに区切るには?(UTF-8、改行LF)
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PL/Iについて、教えてください。
-
(VBS) テキストファイル読込で...
-
デジタル時計の時刻合わせの方...
-
エクセルのシート上に別のシー...
-
Javascript_submit()完了後に処...
-
マイページはどこを開くの
-
助けて下さい!小窓表示位置が...
-
一定時間おきにアラームやポッ...
-
リンク時、親ウインドウを最前...
-
小さな表示窓の呼び方は
-
エクセルVBAでフォームのListbo...
-
ウインドウを毎回同じ位置、大...
-
[Java] Edgeでのアドレスバー非...
-
孫ウインドウを閉じたら親をリ...
-
MM_openBrWindowとwindow.open
-
TikTokLiteの自動スクロールの...
-
親ウインドのASPをリロードさせ...
-
写真を右から左にスクロールさ...
-
Visual Basicから Spreadのスク...
-
PDFファイルを分割するマクロの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
スプレッドシートのチェックボ...
-
VC++のデバッガでvectorの要素...
-
NS(項目)とNSMutable(項目)の違い
-
(VBS) テキストファイル読込で...
-
[C++] vector<string> の各要素...
-
マウスの入って来た方向を検出...
-
VBAでユーザ定義変数名をシート...
-
C# tree組み換え
-
JavaScriptでクリップボードの...
-
JQuery、セレクトボックスをル...
-
ロールオーバーで大きくバナー...
-
VBAでセル参照して要素の順番を...
-
ajax
-
PL/Iについて、教えてください。
-
WebサイトのHTMLオブジェクトの...
-
【VB.NET】HTML要素を取得しよ...
-
【VBA/HTML】特定のタグ要素に...
-
ページ全体をスクロールするAja...
-
デジタル時計の時刻合わせの方...
-
エクセルのシート上に別のシー...
おすすめ情報