opslaan lijst getallen naar een bestand

[lagrang]

Mischien kan iemand mij helpen met het volgende probleem:

Ik heb een fromule (bijvoorbeeld y=x) waarbij een willekeurig getal tussen 0 en 1 inneemt.
Nu wil ik 10.000 getallen generen en deze 10.000 getallen moeten worden ingelezen en worden opgeslagen naar een bestand (zodat ik deze getallen later kan bewerken).

Ik weet dat ik in Excel mbv Aselect() een hele lijst getallen kan generen, maar dit doe ik
dan door het kopieren van cellen. Als ik op deze manier tewerk ga dan kan ik mbv copy
en paste(naar Word) en daarna weer naar Excel over deze lijst beschikken, maar 10.000 getallen op het klembord plaatsen is dan een probleem.

Wie kan en wil mij helpen.

Alvast bedankt voor de moeite!

 

[evertVB]

Ik weet niet welke VB versie je hebt, maar in VB2005 of 2008 zou dit moeten werken:

Imports System.IO
Imports System.Text

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyRandom As New System.Random
        Dim i As Integer
        Dim d As Double
        Dim MyFileName As String

        MyFileName = "C:\Tekstbestand.txt"
        MsgBox(MyFileName)

        Dim objFileStream As New FileStream(MyFileName, FileMode.Create, FileAccess.Write)
        Dim objStreamWriter As New StreamWriter(objFileStream)

        For i = 1 To 10000
            d = MyRandom.NextDouble()
            objStreamWriter.WriteLine(CStr(d))
        Next i

        MsgBox("Game over")

        objStreamWriter.Close()
        objFileStream.Close()
    End Sub
End Class

Ik hoop dat dit is waar je ongeveer naar zocht.