看板 Visual_Basic 關於我們 聯絡資訊
小弟我在寫一個自動餵資料的程式 目前卡在不知道要如何將產生出來的值 寫到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" For i = 0 To 100 FileOpen(1, "c:\data.txt", OpenMode.Input) Randomize() s = (Int(5) * Rnd() + 1) a = b & Num(s) FileClose(1) Next MsgBox("產生完畢") End Sub End Class -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.175.189.49