VisualBasic2008でプログラミングをしています。

すでに文字列が書き込まれているテキストファイル \\server\a.txt の最後尾に、str1 に格納されている文字列を追記するには、どのようなコードを書けばよろしいでしょうか?

回答の条件
  • 1人2回まで
  • 登録:2009/12/30 09:45:33
  • 終了:2010/01/06 09:50:02

回答(4件)

id:horonict No.1

horonict回答回数257ベストアンサー獲得回数512009/12/30 10:03:13

ポイント23pt

以下のようなコードになります。

Dim fileNo As Integer
fileNo = FreeFile                        
Open "\\server\a.txt" For Append As #fileNo  'ファイルを追加モードで開く
Print #fileNo, str1                          'ファイルへ書き込む
Close #fileNo                                'ファイルを閉じる
id:rsc96074 No.2

rsc回答回数4394ベストアンサー獲得回数4022009/12/30 11:22:23

ポイント23pt

 こちらはいかがでしょうか。Form1にボタン1とテキストボックス1を設置して、下記コードでなんとか動くようです。ただし、あらかじめ、「\server」というディレクトリ(フォルダ)が設置されていないとエラーになるようです。それから、「\\server\a.txt」は、「\server\a.txt」に変更しないとエラーになってしまいました。


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str1 As String = TextBox1.Text
        Dim fName As String = "\server\a.txt"

        If str1 <> "" Then SaveAppend(fName, str1)
    End Sub

    Private Sub SaveAppend(ByVal fileName As String, ByVal str1 As String)
        Try             'True は、Append mode を表しています。
              My.Computer.FileSystem.WriteAllText(fileName, str1, True, System.Text.Encoding.Default)
            MsgBox(" OK! ")         'Test用
        Catch
            MsgBox(" Write error! ")
        End Try
    End Sub

End Class

id:pah00 No.3

pah00回答回数208ベストアンサー獲得回数52009/12/30 11:59:34

ポイント22pt

http://homepage2.nifty.com/yokosuka/Application/VB/vb2.htm

アペンドモードで書けば、追記されます。

サンプルは、URLの後半です。

id:tekk No.4

tekk回答回数5ベストアンサー獲得回数12009/12/30 14:27:04

ポイント22pt

Dim str1 As String = "Hello World"

System.IO.File.AppendAllText("\\server\a.txt", str1)


気になるところは文字化けですが、文字化けするようなら以下としてください。

System.IO.File.AppendAllText("\\server\a.txt", str1, System.Text.Encoding.Default)


ファイルの末尾に文字列を追記する。

http://d.hatena.ne.jp/tekk/20091230/1262150698

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません