投稿日	： 2006/07/03(Mon) 16:24
投稿者	： ミント☆さぶ
Ｅメール	：
ＵＲＬ	：
タイトル	： ファイル出力

C言語のHファイルの内容をVBのBASファイルに書き込まれるようにしたいのですが。
Private Sub Form_Load()
      Dim fileno As Integer
      fileno = FreeFile
      Open "c:\DTCARDMK.BAS" For Output As #fileno
      Print #fileno, "Test";
      Print #fileno, " Data"
      Print #fileno, "テストデータ"
      Print #fileno, "ファイル番号は"; fileno
      Print #fileno, "A"; Spc(1); "B"; Tab(8); "C"
      Print #fileno, True, False
      Write #fileno, True, False
      Print #fileno, Date
      Write #fileno, Date
      Close #fileno
  
      Dim s As String
      Open "c:\DTCARDMK.H" For Input As #fileno
      While Not EOF(fileno)
      Line Input #fileno, s
      Debug.Print s
      Wend
      Close #fileno
End Sub

どうしても「2006/07/03」、「このファイル番号は」という内容が書き込まれてしまいます。
Open "c:\DTCARDMK.BAS" For Output As #fileno
      Print #fileno, "Test";
      Print #fileno, " Data"
      Print #fileno, "テストデータ"
      Print #fileno, "ファイル番号は"; fileno
      Print #fileno, "A"; Spc(1); "B"; Tab(8); "C"　　　←「
”」で囲まれている　　　　　　　
      Print #fileno, True, False　　　　　　　　　　　　　　文字がファイルに書き込まれる
      Write #fileno, True, False
      Print #fileno, Date
      Write #fileno, Date
      Close #fileno
--------------------------------------------------------------  

★ - ファイル出力 - ミント☆さぶ 07/03-16:24No.6785
• Re: ファイル出力 - 特攻隊長まるるう 07/04-11:15 No.6789