看板 Visual_Basic 關於我們 聯絡資訊
不知道這樣是不是你要的..參考看看吧 ※ 引述《a70103 (好想回台中....)》之銘言: : 小弟我在寫一個自動餵資料的程式 : 目前卡在不知道要如何將產生出來的值 : 寫到txt檔 : 例如我將檔案放置在C:\data.txt : 請問要如何寫呢? : 以下是我的程式碼 : Public Class Form1 : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) : Dim Num() As String = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9} : Dim i As Integer : Dim a As String : Dim data As FileAttribute : data = FileAttribute.System : Dim b As String : Dim s As String : Dim last As Integer : b = "00000" Dim srWriter As New System.IO.StreamWriter("c:\data.txt", False) : For i = 0 To 100 : FileOpen(1, "c:\data.txt", OpenMode.Input) : Randomize() : s = (Int(5) * Rnd() + 1) srWriter.WriteLine(s) : a = b & Num(s) : FileClose(1) : Next srWriter.Close() : MsgBox("產生完畢") : End Sub : End Class -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.135.236.229
a70103:感謝大大! 07/22 02:42