ファイル内の(&H0A)を(&H0D0A)に変換したい

質問

改行コードが０Ａ（１６進数）となってしまっているファイルを
０Ｄ０Ａ（１６進数）に変換したいのですが、どのような方法がありますか？
出来れば時間の掛からない方法が知りたいです。

ファイルは、ヤマト運輸の着店コードファイルで件数が３０００件ほどあるのですが
改行コードが０ＡなのでＩｎｐｕｔ＃で読み込めません。

ファイルを変更しなくても良い方法があればそれでも結構です。

回答No.5

TAGOSAKU7 · ベストアンサー

置き換えてファイルの保存をしたかったのですね・・・

それと、やはり読み込まない事には、置き換えれないですよ。
だって読んでないんだもん・・・

んで、置き換えで保存するのに一番早いのは＃２に書いてあるようにまず
「GETで読む」
「Replace関数で置き換える」← 一度でファイル内の文字列を変換できます（VB6仕様）
「PUTでファイルに落とす」
これをファイルの数だけ繰り返す処理になると思います。

大まかにわけると、たった３つの処理で済みます。

お礼

回答ありがとうございます。
こんな簡単な方法があったとは・・・
Replaceって文字を繰り返す時に使うものだと思っていました。
もっと勉強しなくてはいけませんね。
これからもよろしくご教授願います。

回答No.4

SpiralGalaxy

一番簡単なのはＦＴＰでしょう。Ｗｉｎｄｏｗｓ機を使用してＦＴＰサーバにＡＳＣＩＩモードで送信した後、同様にＡＳＣＩＩモードでそのファイルを受信すれば変換されているはずです。

お礼

回答ありがとうございます。
No1の方と同じ内容になってしまいますので省略させていただきます。
説明不足ですみません。

回答No.3

imogasi

昔懐かしいMS-ＢＡＳＩＣの頃を思い出します。ＶＢで
次ぎのロジックはいかがですか。結構Ｂａｓｉｃ時代の入出力関数がＶＢでも使えるようです。
ａ＝ｉｎｐｕｔ（５０，１）でファイル番号１の５０バイトをストリングａに読みこみます。
これだとＣＲが中身にあっても、５０バイト読みこむと
思います。
ここでＣＲのストリングの位置のｐバイト目をＩｎｓｔｒ関数で見つけ、
ＣＲをＣＲ＋ＬＦでおきかえる。(またはＬＦを加える。)１バイトより
ｐバイトめまでとＬＦをｂと言う文字列に作る。
そのｂという文字列をｐｒｉｎｔ　＃２，ｂでファイル番号２の
アウトプットファイルに書き出す。
次ぎにａのＰ＋１バイトより後のストリングで最初ＣＲの位置を
見つけ同じ事を行う。ａの中にＣＲが見つからなくなれば
５０バイトまでを一時記録しておき、次ぎの５０バイトの
先頭部分と結合しファイル番号２のアウトプットファイルに書く。
次ぎにａ＝ｉｎｐｕｔ（５０，１）を実行すると、６１バイトから１００バイト
目がａに入るので同じ事を行う。以下＃１のファイルの終わりまで
繰り返す。
Ｉｎｓｔｒである文字列を見つけるとき、その文字列の作り方は、
制御コードのＣＲやＬＦやＣＲ＋ＬＦなどのときは、文字は
使えずｃ＝ｃｈｒ（ｘｘ）＋ｃｈｒ（ｙｙ）などのｃｈｒ関数と＋または
＆を使う。
下記はｉｎｐｕｔ関数がＶＢでも使えるかテストしたもので、
作る時間がなくて、お尋ねの要求を満たすプログラム
そのものでなくて済みません。
改行＆Ｈ０Ａはｃｈｒ（１０）なんですが，復帰はｃｈｒ（３２）
だったと思いますが、手許に表がなくて未確認です。
ＩnputとＩｎｐｕｔＢ関数があるかもしれませんので調べて
下さい。
文字列を扱う関数はＩｎｓｔｒ，Ｉｎｄｅｘ，Ｓｕｂｓｔｒ、Ｍｉｄ，Ｒｉｇｈｔ
などである。
Private Sub Form_Load()
c = Chr(10) & Chr(32)
Open "c:\javasamples\test1.txt" For Input As #1
Ｏｐｅｎ　"c:\javasamples\testn.txt" For Output As #2
For i = 1 To 3
a = Input(50, 1)
' p = InStr(a, c)
' MsgBox p
'MsgBox Mid(a, 1, p) & "=="
MsgBox a
Next i
a = Input(40, 1)
MsgBox a
End Sub

お礼

回答ありがとうございます。
No2の方と同じ内容になってしまいますので省略させていただきますが参考にさせていただきます。

回答No.2

TAGOSAKU7

http://oshiete1.goo.ne.jp/kotaeru.php3?q=169686
にも書いたのですが・・・それとほとんど変更なしのファイルの読み込みサンプルです。
読み込みを一行ずつ行わないで、バイナリ形式で全てを一度で読み、指定の区切り文字で配列にセットしてます。

改行コードが"OA"という文字列であればこれで可能なのですが。。。
いまいち質問の内容を理解しきれていない部分があります。

違ったらご指摘ください。

Sub Main()
　　'ファイル名
　　Const FILENAME　As String = "c:\test.txt"

　　'テキストを配列で記憶
　　Dim valAry　　　As Variant

　　'問題ファイルの読み込み（ファイル名：改行文字：取得した文字列）
　　If Not subConvert(FILENAME, "0A", valAry) Then
　　　　Call MsgBox("[" & FILENAME & "]失敗")
　　　　GoTo PGMEND
　　End If
PGMEND:
End Sub

'テキストファイルを読み込み、配列にして返す
'パラメータ１：ファイルパス
'パラメータ２：テキストファイルは何区切り？
'パラメータ３：返す配列
Public Function subConvert(inFilePath As String, strCut As String, outAry As Variant) As Boolean
　　Dim lngFileSize As Long 'ファイルサイズ
　　Dim lngFileNum As Long　'ファイルナンバ

　　Dim strBuff　　 As String　 '文字列ワーク

　　'ファイルサイズの取得
　　On Error Resume Next
　　lngFileSize = FileLen(inFilePath)
　　On Error GoTo 0
　　'サイズが取得できない時NG処理
　　If lngFileSize < 1 Then
　　　　Exit Function
　　End If

　　'取得するためのサイズを用意
　　strBuff = String(lngFileSize, vbNullChar)

　　'テキスト取得
　　lngFileNum = FreeFile
　　Open inFilePath For Binary As #lngFileNum
　　　　Get #lngFileNum, , strBuff
　　Close #lngFileNum

　　'文字列を区切り、配列に変換
　　outAry = Split(strBuff, strCut)

　　'OKを記す
　　subConvert = True
End Function

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=169686

お礼

回答ありがとうございます。
参考にさせて頂きます。
やはり、１つずつ見ていくしかないのでしょうか？
私はNo3の方のような方法でLineInputで読込みInstrで検索しrightとLeftを使って挿入しファイルに書き込むという方法を考えていましたが、
No1の方のようにしかもプログラムの中で（出来ればファイルを読み込まず）一発置換をしたいと思って質問しました。
ちょっと虫のいい話でしたか・・・・
皆さんの回答を見ても他アプリケーションを使用しないと一発では置換できない
のでしょうか。

回答No.1

noname#5179

漢字コード変換ソフトがあります。

これで、CR+LFに変更すればいけると思います。

参考URL：

http://www3.airnet.ne.jp/saka/software/jme.html

お礼

早速の回答ありがとうございます
このソフト簡単でいいんですが、実際に使うのは私ではないので
プログラムの中で処理したいと思っています。

Windowsのワードパットで読込み、保存すると改行コードを変換して
保存してくれるのですが、他のソフトを使わず（プログラムの中で他の
アプリケーションを使うのが面倒なので）プログラムで簡単な方法を
知りたかったのです。
質問がわかりにくくてすみません。
ただ、ヤマトのファイルがMacのTextファイルだという事がわかっただけでも
勉強になりました。