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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- その他(プログラミング・Web制作) Windowsのマクロプログラムで、こんなことできますか? 3 2022/06/28 14:30
- その他(プログラミング・Web制作) Pythonを勉強しています。 5 2023/08/25 09:51
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- その他(Microsoft Office) エクセルで1行の長いデータを指定の桁数で分割する方法が知りたいです。 4 2022/05/20 21:55
- C言語・C++・C# c言語の問題です 2 2023/07/21 10:51
- JavaScript Javascriptを使ってQRコード読み取り、取得した情報をPOSTしたいと思っています。 1 2023/04/28 15:18
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VBA/HTML】特定のタグ要素に...
-
WebサイトのHTMLオブジェクトの...
-
JQuery、セレクトボックスをル...
-
VC++のデバッガでvectorの要素...
-
マイページはどこを開くの
-
デジタル時計の時刻合わせの方...
-
ウインドウを毎回同じ位置、大...
-
エクセルのシート上に別のシー...
-
ポップアップウィンドウがブロ...
-
PDFを(htmlのように)無限に縦...
-
一定時間おきにアラームやポッ...
-
VBA ポップアップが表示された...
-
スクリプトって、何ですか?ど...
-
Excelでワードアートや図を常に...
-
[Java] Edgeでのアドレスバー非...
-
Javascript_submit()完了後に処...
-
同じページをブラウザで複数開...
-
エクセルVBAでフォームのListbo...
-
unknownユニキャストフレームと...
-
ページ訪問時にiframe内を自動...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ajax
-
(VBS) テキストファイル読込で...
-
VC++のデバッガでvectorの要素...
-
PL/Iについて、教えてください。
-
WebサイトのHTMLオブジェクトの...
-
JQuery、セレクトボックスをル...
-
VBA HTTPを用いたWEB画面の取...
-
AJAXでのinputもしくはoptionな...
-
【VB.NET】HTML要素を取得しよ...
-
どこまでを動的に、どこまでを...
-
モーダルウィンドウにおける処...
-
MFCを使って、ひとつのkey(CStr...
-
[C++] vector<string> の各要素...
-
JavaScriptでクリップボードの...
-
ファンクションキーの既存の機...
-
スプレッドシートのチェックボ...
-
bxSliderで動画をスライドごと...
-
【VBA/HTML】特定のタグ要素に...
-
エクセルでタグの内容が取得で...
-
マイページはどこを開くの
おすすめ情報