
ExcelVBAマクロについて確認させてください。
下記のようにWordファイルをテキストファイルに落として保存したファイルを
変数aに読み込んでいます。
このとき、読み込んだテキストファイルはWordファイルをテキストファイルに
落とし込んだファイルなので改行コードと改ページコードが残ってしまいます。
この改行コードと改ページコードを削除したうえで再度変数aに読み込むように
しようと思っています。
ですが、今のところReplace関数を考えているのですが、
改行コードは削除出来ましたが、改ページコードが削除出来ません。
改ページコードを削除するプログラムを考えているのですが、可能でしょうか。
改ページコードは"^L"か"↓"に似た文字で表示されるようです。
以上、ご教授のほどよろしくお願いします。
----------------------------------
Sub sample1()
Dim a As String
a = CreateObject("Scripting.FileSystemObject").GetFile("C:\sample.txt").OpenAsTextStream.Readall
a = Replace(a, vbCrLf, "") '改行コードの削除
CreateObject("Scripting.FileSystemObject").GetFile("C:\sample.txt").OpenAsTextStream.Close
End Sub
No.1ベストアンサー
- 回答日時:
改行はvbCrLf で表せるコード(VBの中では)と思う。
他のソフト(プログラム)の中では別かもしれないが)段落内改行(↓)ならvbLfやChr(10)を試したら。
参考
ワードVBAの例
http://oshiete.goo.ne.jp/qa/5755737.html
ーー
どういうコードが入っているかは、16進で標示できるテキストエディタでそのファイルを読み込めば一番確実に判る。
ーー
それにしても質問のことを実現したとして、後に何がしたいのか、別途質問でもして、経験者にアドバイスもらったら。
初心者的なアイデアの路線に固執して、こうやりたのだ、と思っているように思う。
そのアイデアそのものが適当なのかどうか。
質問のようなことは普通質問には出ない。
文書情報などを扱うには、レコード(行)区切りがむしろ必要なはず。
No.3
- 回答日時:
そのテキストファイルを、バイナリエディタで見てみることをお奨めします。
改ページに相当するコードが分かれば、解決したも同然ですので。
「バイナリエディタ」で検索すればフリーソフトもすぐに見つかると思います。
早速のご助言ありがとうございます。
おかげさまでその改ページコードの文字コードを
見つけることが出来ましたので削除することが
出来ました。
No.2
- 回答日時:
#1です。
参考までに。
私のやった、極く短文の、段落ない改行の例では
Sub test01()
Dim a As String
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile("C:\Documents and Settings\XXX\My Documents\改行.txt")
Set objText = objFile.OpenAsTextStream
myText = objText.Readall
a = Replace(myText, vbCrLf, "") '改行コードの削除
MsgBox a
For i = 1 To Len(a)
x = Mid(a, i, 1)
MsgBox Asc(x)
Next
End Sub
では、コードでは32(スペース)になったようだ。
ワードをテキストで保存するときの設定を聞いて来る画面があるが、そこでまずかったのかも知れない。
上記コードで、何が入って居るか、判らないか役立てられれば役立てて。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAのコマンドボタンの文字列の...
-
テキストボックスの回転
-
エスケープ文字の復帰(¥r)と...
-
\\nと\\rの違い
-
改行について
-
JavaDoc コメントの改行について
-
テキストボックス行の桁数を制...
-
1行ごとに取得して、その改行...
-
Excel VBAからBeckyを起動して...
-
テキストファイルから改行コー...
-
JavaMail,本文中の改行について
-
DataGridView編集中のイベント取得
-
VBAでCSVをExcelに取り込む時に...
-
jsp 改行コードで改行させて表...
-
sendmailの改行について
-
CSVファイルの改行コード判別
-
マクロでセル内の改行を削除す...
-
C++のctime関数復帰値の改行
-
バイナリファイルに改行コード...
-
文字コードの検出が正しいかを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのコマンドボタンの文字列の...
-
ソースコードの1行が長いとき...
-
エスケープ文字の復帰(¥r)と...
-
jsp 改行コードで改行させて表...
-
改行について
-
VBAでCSVをExcelに取り込む時に...
-
【VBA】エクセルで最後の不要な...
-
ラベル(スタティックテキスト)...
-
ファイルから読み取った改行文...
-
Excel VBAからBeckyを起動して...
-
C++で空Enterの入力を判...
-
JAVA Spring 改行コードを含む...
-
変数の中の改行コードをBRタグ...
-
秀丸の正規表現で複数行にわた...
-
awkで改行を除いて文字列を抜き...
-
エクセルVBA 文字列領域が不足...
-
vb.netでのリッチテキストボッ...
-
グレープシティのSPREAD...
-
COBOLの改行
-
最終行の改行について
おすすめ情報