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

Question

改行コードが０Ａ（１６進数）となってしまっているファイルを
０Ｄ０Ａ（１６進数）に変換したいのですが、どのような方法がありますか？
出来れば時間の掛からない方法が知りたいです。

ファイルは、ヤマト運輸の着店コードファイルで件数が３０００件ほどあるのですが
改行コードが０ＡなのでＩｎｐｕｔ＃で読み込めません。

ファイルを変更しなくても良い方法があればそれでも結構です。

TAGOSAKU7 · Accepted Answer

置き換えてファイルの保存をしたかったのですね・・・

それと、やはり読み込まない事には、置き換えれないですよ。
だって読んでないんだもん・・・


んで、置き換えで保存するのに一番早いのは＃２に書いてあるようにまず
「GETで読む」
「Replace関数で置き換える」← 一度でファイル内の文字列を変換できます（VB6仕様）
「PUTでファイルに落とす」
これをファイルの数だけ繰り返す処理になると思います。

大まかにわけると、たった３つの処理で済みます。

SpiralGalaxy · Answer

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

imogasi · Answer

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

TAGOSAKU7 · Answer

http://oshiete1.goo.ne.jp/kotaeru.php3?q=169686
にも書いたのですが・・・それとほとんど変更なしのファイルの読み込みサンプルです。
読み込みを一行ずつ行わないで、バイナリ形式で全てを一度で読み、指定の区切り文字で配列にセットしてます。

改行コードが"OA"という文字列であればこれで可能なのですが。。。
いまいち質問の内容を理解しきれていない部分があります。

違ったらご指摘ください。

Sub Main()
　　'ファイル名
　　Const FILENAME　As String = "c:	est.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

noname#5179 · Answer

漢字コード変換ソフトがあります。

これで、CR+LFに変更すればいけると思います。

参考URL：http://www3.airnet.ne.jp/saka/software/jme.html

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

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

一番簡単なのはＦＴＰでしょう。

昔懐かしいMS-ＢＡＳＩＣの頃を思い出します。

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

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング