|
分類:[VB6 以前]
重ね、お世話になります。
コマンド(fc)によるファイル比較につきまして、ご質問致します。
下記のWebページを参考例(例えば以下のようなファイルがあったとします。)では、同じ結果となり問題はありませんでした。 fc【コマンド】とは|「分かりそう」で「分からない」でも「分かった」気になれるIT用語辞典 http://wa3.i-3-i.info/word11919.html
しかし、Webページにもよると思いますがそのWebページを範囲選択⇒ コピーText1Box、Text2Boxに貼り付けます。 比較(1.txt)(2.txt)の行目と比較結果(3.txt)の最終行が一致しません。 1.txt、2.txtファイルの最終行は566行です。比較結果の最終行は589行です。
操作手順 1.Webページを範囲選択(Ctrl+A) ⇒ コピー(Ctrl+C) ⇒ Text1Box、Text2Boxに貼り付けます。
2.Text1Boxの最終行目の先頭に[1]を追加します。
最終行目: Copyright(C)2013-2018 ITの万屋 PCS Piyopiyo Create ServiceAll Rights Reserved ↓ 最終行目: 1Copyright(C)2013-2018 ITの万屋 PCS Piyopiyo Create ServiceAll Rights Reserved
3.Command1⇒クリック
ファイル 1.txt と2.txt比較結果の3.txtファイルが開きます。
比較結果の内容(3.txt) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ファイル 1.txt と 2.TXT を比較しています ***** 1.txt 588: Linuxコマンド辞典 589: 1Copyright(C)2013-2018 ITの万屋 PCS Piyopiyo Create ServiceAll Rights Reserved ***** 2.TXT 588: Linuxコマンド辞典 589: Copyright(C)2013-2018 ITの万屋 PCS Piyopiyo Create ServiceAll Rights Reserved ***** ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' コマンド(fc)によるファイル比較 ' ' 準備・・・ [Text1.Text] [Text2.Text] [Command1_Click] ' Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click()
'Text1box ⇒ 1.txtファイル作成 intFileNo = FreeFile Open App.Path & "\1.txt" For Binary Access Write As #intFileNo Put #intFileNo, , Text1.Text Close #intFileNo 'Text2box ⇒ 2.txtファイル作成 Open App.Path & "\2.txt" For Binary Access Write As #intFileNo Put #intFileNo, , Text2.Text Close #intFileNo
'1.txtファイル と 2.txtファイル を比較し比較結果を 3.txtファイル作成 Shell "cmd.exe /c fc /n 1.txt 2.txt > " & Chr(&H22) & App.Path & "\3.txt", vbHide Sleep 1000 '比較結果の3.txtファイルが開きます。 Call Shell("notepad.exe " & App.Path & "\3.txt", vbNormalFocus) End Sub ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
質問 1.txt、2.txtファイルの最終行(566行)と比較結果の最終行(589行)に 何故、違いがおきるのか、その理由が知りたいのですが、 ご指導のほどよろしくお願いいたします。
|