人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: ILoveWeb
●カテゴリ:コンピュータ
✍キーワード:txt コード テキスト ファイル プログラミング
○ 状態 :終了
└ 回答数 : 4/4件

▽最新の回答へ

1 ● horonict
●23ポイント

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

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

2 ● rsc
●23ポイント

こちらはいかがでしょうか。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


3 ● pah00
●22ポイント

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

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

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


4 ● tekk
●22ポイント

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ