推 a70103:感謝大大! 07/22 02:42
不知道這樣是不是你要的..參考看看吧
※ 引述《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