• 締切済み

VB6 テキストへの書き込み

VB6 SP6でプログラムを作成中です。 あるテキストボックスに書いた文字列をコマンドを　 押すと、#5のテキストへ書き込みたいと思います。コマンドを押すたびに改行させたいのですが、１行目のデータが書き換えられてしまいます。何か良い方法はありませんか？ Private Sub Command3_Click() Dim めぐ As String めぐ = Text1.Text Open "C:\Documents and Settings\Owner\デスクトップ\通信データ.txt" For Output As #5 Print #5, めぐ Close #5 End Sub

みんなの回答

回答No.2

'まぁ確かにAppendなんですが,個人的にはオブジェクトで扱ったほうが遥かに解りやすく感じます。 'Microsoft Scripting Runtime を参照設定で参照する必要アリ Option Explicit Private fso As FileSystemObject Private stream As TextStream Private Sub CommandButton1_Click() stream.WriteLine (TextBox1.Text) End Sub Private Sub UserForm_Initialize() Set fso = New FileSystemObject Set stream = fso.OpenTextFile("C:\hoge.txt", ForAppending, True, TristateFalse) End Sub Private Sub UserForm_Terminate() stream.Close Set stream = Nothing Set fso = Nothing End Sub

  • arare2005
  • ベストアンサー率31% (63/199)
回答No.1

For Output　-->　Append

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • テキストの読み書きがうまくいきません。

    次の様なプログラムですが、保存したデータと読み込んだデータが一致しません。更に調べたら、保存したときに改行コードが含まれているようです。改行を入れないようにするには、どうしたら良いでしょうか。 Option Explicit Public A As String Public B As String Private Sub Cmd読込_Click() Open App.Path & "\設定.ini" For Input As #1 Text1.Text = StrConv(InputB(LOF(1), #1), vbUnicode) Close #1 A = Text1.Text End Sub Private Sub Cmd比較_Click() If A = B Then MsgBox ("同じ") Else MsgBox ("違う") End Sub Private Sub Cmd保存_Click() Open App.Path & "\設定.ini" For Output As #1 Print #1, Text1.Text Close #1 B = Text1.Text End Sub

  • ファイル名がテキストボックスにうまく表示できない

    お世話になります。 filelistboxで選択したファイル名を選択した順に テキストボックスに表示させたいのですが、ファイル名の 後に改行コードを入れても改行して表示してくれません。 何が原因なんでしょうか？よろしく御教授願います。 例　aaa.txtを選択、テキストボックスに表示させ、 その後bbb.txtを選択するとテキストボックスの表示が ”aaa.txt‥bbb.txt”となる --------- aaa.txt（改行） bbb.txt --------- と表示したい。 （コード） Dim fname As String Private Sub File1_Click() fname = Dir1.Path & "\" & File1.FileName End Sub Private Sub Command3_Click() Call macappend End Sub Private Sub macappend() 'text1に選択マクロを追加 　　　Dim macbuff1 As String 　　　Dim macbuff2 As String 　　　macbuff2 = Text1.Text 　　　macbuff1 = fname + Chr(13) + Chr(11) 　　　macbuff2 = macbuff2 + macbuff1 　　　Text1.Text = macbuff2 End Sub

  • VBで、このようなことはどうやっら出来るのでしょうか？

    こんばんは。単刀直入のこんなことです。 Private Sub Command1_Click() Dim a As Double a = a + 1 Text1.Text = a End Sub このプログラムを実行して、、コマンドボタン１を押すと　テキスト1には、1が表示されます。 で、やりたいことは、またコマンドボタン１を押すと、テキスト1には2｛a=1(一回目によって代入された値）+1｝が表示されるようにしたいのですが、どうすればよいのでしょうか？

  • テキストの読込について

    あいうえお かきくけこ さしすせそ ↑のような中身のテキストファイルを読み込んで、 あいうえおかきくけこさしすせそ ↑のように、改行をなくして新規テキストに出力する プログラムを作成中なのですが、上手くいかず 困っています。 改行を無視した取り込みは出来るのでしょうか？ もしくは、LineInput等で読み込んだ後、 改行を取り除くような処理をするのでしょうか？ 下記は、現在まで作ったプログラムなのですが、 これだと、改行も同時に取り込んでしまっています。 Private Sub Command1_Click() Dim sData As String Dim FileName As String CommonDialog1.Filter = "テキスト|*.txt|全てのファイル|*.*" CommonDialog1.ShowOpen FileName = CommonDialog1.FileName Open FileName For Input As #1 Do Until EOF(1) Line Input #1, sData Loop Close #1 環境は、WindowsXP、VB6.0エンタープライズです。 以上、宜しくお願い致します<(_ _)>

  • VB6　テキストファイルへの保存方法

    みなさん教えてください。 いまＶＢ６．０で、テキストボックス（textbox1）に入力するデータ（数値）を名前を指定するテキストファイルに内容を保存したいと考えています。 これをやろうと、下記のように構文を作成したのですが、何故かうまくいきません。 みなさんアドバイスを頂けないでしょうか。 宜しくお願いします。 Private Sub Command1_Click() Dim StrFN As String Dim sw As System.Io.StreamWriter 'テキストファイルを上書きで保存する StrFN = Application.GetSaveAsFilename("", "測定データ(*.txt),*.txt,全てのファイル(*.*),*.*", , "測定データファイル名指定") 'ダイアログ表示 If Dir(StrFN) <> "" Then If vbYes <> MsgBox("同名ファイルがあります。" & vbLf & _ "上書きしますか？", vbYesNo) Then Exit Sub End If End If sw = StrFN '書込み sw.Write (textbox1.Text) sw.Close () End Sub

  • VBのテキスト書き込み読み出し

    VB初心者です。 VBのテキスト書き込み読み出しについて質問させていただきます。 ～使用オブジェクト～ textbox1 textbox2 button1 button2 現在下記の通りtextbox1とtextbox2に書いた文字(length 10まで)をbutton1 clickで C:\test.txtに書き出し、 button2 clickでtextbox1　と textbox2に戻すプログラムを書いてみました。 読み込みのところが現在は2個ですが、実用的には膨大な数にしたいと思っています。 単純に沢山書けばいいのでしょうが現実的ではないのでスッキリと書く書き方はないでしょうか？ さらに、例としてtextbox1にAさんの名前textbox2にAさんの年齢をいれたとします。 その際、Bさん以降を登録したいのですがその場合テキストへの書き込みを次行に書き込み 次行を読み込むにはどのように書けばよろしいでしょうか？ ご教授お願い致します。 Public Class Form1 '##################################################### '"C:\test.txt"へ書き込み '##################################################### Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim write_data As New System.IO.StreamWriter("C:\test.txt", False, _ System.Text.Encoding.Default) Dim str As String Dim str1 As String str = String.Format("{0, -10}", TextBox1.Text) str1 = String.Format("{0, -10}", TextBox2.Text) write_data.Write(str & str1) write_data.Close() End Sub '##################################################### '"C:\test.txt"の読み込み '##################################################### Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Dim Reader As New IO.StreamReader("C:\test.txt", System.Text.Encoding.GetEncoding("Shift-JIS")) While Reader.Peek() > -1 '10文字取得 Dim c(9) As Char Dim d(9) As Char Reader.ReadBlock(c, 0, c.Length) Reader.ReadBlock(d, 0, d.Length) TextBox1.Text = c TextBox2.Text = d End While Reader.Close() End Sub End Class

  • 表示プログラムについて

    テキストの中の”あいうえお”のような文章を表示させるプログラムを作りたいんですが Private Sub Command1_Click() Open "c:\mydata\test.txt" For Input As #1 End Sub Private Sub Command2_Click() Close #1 End Sub では表示されませんでした。何がおかしいかとかどうすればいいか教えてください。お願いします。

  • ＶＢ．ＮＥＴとして書き換え

    コマンドボタンを押すたびに　ココ　という文字をテキストボックスに書く。 Private Sub Command1_Click() Dim i As Integer i = Int(Rnd * 4) For c = 0 To 4 Text1(c).Text = "" Next c Text1(i).Text = "ココ" End Sub ＶＢ６ではこんなふうになると思います。 ．ＮＥＴではどう書けばいいのでしょうか？

  • VB2010　テキスト書き出し位置

    VisualBasic初心者です。 VB2010でフォームでフォームから複数のTextBoxに入力したものを Buttonクリックイベントでテキストファイルに書き込みを行おうと思っています。 その際、テキストファイルへの書き込み位置を指定したいと思っています。 TextBox1の内容はテキストファイルの1文字目から10文字目 TextBox2の内容は11文字目から20文字目という感じにしたいです。 現在下記のプログラムです。 どなたかご教授ください。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Dim write_data As New System.IO.StreamWriter("C:\test.txt", False, _ System.Text.Encoding.Default) write_data.Write(Textbox1.text) write_data.Close() End Sub

  • リストボックスの内容を　テキストファイルに出力

    エクセル　vba初心者です。 (1)ini fileからデータを取得 (2)その内容のリストボックスに表示 (3)リストボックス内容をテキストボックスに出力 (2)、(3)がわかりません。 なんとなくやってたら余計にわからなくなりました。助けてください。 Private Sub CommandButton1_Click() '読込み(1)を押した時の処理 Dim listbox As String Dim strL_Data As String '取得した値 Dim n As Integer n = FreeFile 　　 ListBox1.Clear 　 Open "C:\filepath.ini" For Input As #n Do While Not EOF(n) Line Input #n, listbox ListBox1.AddItem listbox Loop Close #n End Sub Private Sub CommandButton2_Click() '書込み(1)を押した時の処理 　Dim listbox As String Dim strL_Data As String '取得した値 Dim n As Integer n = FreeFile 　　 Open "c:\example.txt" For Output As #n Print #n, strL_Data Close #n End Sub よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する