|
テキスト(input)を読み込み80行で改行するしてテキスト(out.txt)出力する
VBAをEXCELで作成しました。
しかし、out.txtでは、80行づつ改行されるのですが、
80行、160行、240行のデータをインポートする場合は
最終行に80行の半角スペースが入ったデータが出力されます。
きっとEOFを読み込んでいるため処理が動いて出力されているものと思われます。
これを出ないようにVBAを変更する場合、どこを直せばよいでしょうか?
どうぞよろしくお願いします
------------------------------------------------------------------------
Private Sub CommandButton2_Click()
Dim nYLINE As Integer
Dim IN_FNO%, OUT_FNO%
Dim strREADBUF As TYPERecord
IN_FNO = FreeFile
Open ActiveWorkbook.Path & "\input.txt" For Random Access Read As #IN_FNO Len = 80
OUT_FNO = FreeFile
Open ActiveWorkbook.Path & "\out.txt" For Output As #OUT_FNO
n = 1
While EOF(IN_FNO) = ture
Get #IN_FNO, n, strREADBUF
Print #OUT_FNO, (strREADBUF.gyo)
n = n + 1
Wend
Close #IN_FNO
Close #OUT_FNO
Shell "notepad.exe " & ActiveWorkbook.Path & "\out.txt", vbNormalFocus
End Sub
-----------------------------------------------------------------------
標準モジュール
-----------------------------------------------------------------------
Type TYPERecord
gyo As String * 80 '
End Type
-----------------------------------------------------------------------
|
|