Tilfældig tal fra .txt fil

I skal vist lige have læreren til at forklare jer hvordan man bruger reference-"manualer". ;-)

Først bonus'en:
Du kan kigge på en den af en streng, med fx
KortTal=mid(Strengen,2,2)
- Hent fra position 2 og 2 frem.

Eller
KortTal=right(Strengen,2)
- De to sidste tegn i strengen.

For at hente en tilfældig linie, er du nødt til at vide hvor mange linier der er. Så reelt skal du læse hele filen ind.
(hvis alle linier er samme længde, kan man dog regne sig frem til det)
Så læs hele filen ind i fx et array, kig på hvor mange linier du har hentet, og vælg en tilfældig.
Hvis det er en meget stor fil, kan det blive nødvendigt at benytte en anden metode.

hjælp lidt her, jeg kan Ikke en pind, andet end det basale, men hver gang jeg prøver at åbne filen:

open "c:\dokuments....\filnavn.txt" for input as #1
Line input #1, Data(x)
Close #1

Så har jeg vel loaded filen ind i programmet???

men hvordan får jeg den så læst ind i et array, og hvordan kigger jeg på den???

Bær over med mig

Med ovenstående kode henter du 1 linie ind

men med

do while not eof(1)
line input #1, Data
loop

Vil du cykle hele filen igennem linie for linie.
Dog kan jeg ikke se hvorfor du vil bruge en fil, men det er nok bare mig :o)

- Mikker

Det kunne blive til:

Dim data()
AntalLinier = 0
Open "c:\dokuments....\filnavn.txt" for input as #1
While Not EOF(1)
  ReDim Preserve data(AntalLinier + 1)
  Line Input #1, data(AntalLinier)
  AntalLinier = AntalLinier + 1
Wend
Close #1
Randomize
RandomLinie = data(Int(AntalLinier * Rnd))

Der er jo 52 kort, så jeg mener det vil kræve rimeligt meget arbejde at skrive det hele ind i kode linien, men du kender nok nogle tricks jeg ikke gør :D

men hvordan gemmer den så de forskellige linier fra filen, og hvordan vælger man en tilfældig derfra og viser den i en tekstboks???

Jeg har ikke ret meget styr på det kan du nok høre :-)

Du behøver jo ikke gemme de 52 kort.
(jeg troede det var til en slags velkomst-hilsen, der skulle være forskellig fra gang til gang).

Når du skal udtrække et kort, skal du tænke på det som én stor bunke, hvor 0-12 er hjerter, 13-25 er spar, 26-38 er ruder og 39-51 klør.
(Jeg trækker en fra, da det så er nemmere at regne med)

Et lille program med én formular og en textbox:
Dim KortFarver(4) As String
Dim KortVaerdier(13) As String

Private Sub Form_Click()

' Et tilfældigt kort:
Kortet = Int(Rnd * 52)
KortVaerdi = (Kortet Mod 13)
KortFarve = Kortet \ 13

Text1.Text = KortFarver(KortFarve) & " " & KortVaerdier(KortVaerdi)

End Sub

Private Sub Form_Load()
KortFarver(0) = "Hjerter"
KortFarver(1) = "Spar"
KortFarver(2) = "Ruder"
KortFarver(3) = "Klør"

KortVaerdier(0) = "ES"
For i = 1 To 8
  KortVaerdier(i) = CStr(i + 1)
Next i
KortVaerdier(10) = "Knægt"
KortVaerdier(11) = "Dame"
KortVaerdier(12) = "Konge"

End Sub

her er en ok kortblander:
http://www.eksperten.dk/spm/220338

Mange Tak mortrr Det virkede :D

Jeg mangler bare lige at finde ud af hvordan man skriver "ikke lig med" der må være et tegn for det. (Lyden af mig der kigger mine kopier igennem) jeg kan bare ikke lige finde den der er sikkert en der ved det :D

Det er det sidste jeg skal have at vide så kan jeg godt finde ud af resten :D

<>

- Mikker

eller

><

Men det gir det samme

mortrr>>

Det ville nok hjælpe med en RANDOMIZE TIMER ellers er der ikke meget random over det. (Det er blevet diskuteret en del her på Eksperten)

- Mikker

Doh havde ikke lige helt ret i jeg kunne finde ud af resten selv :[ hvordan får man deen til at tjekke kun værdien og ikke alt der står i boksen??? (der kommer jo aldrig 2 ens kort) :D

Sådan det burde være dedt hele :)

Så se dov her:
http://www.eksperten.dk/spm/220338

Nervermind fandt selv ud af det :D

mikker >> Den var lige smuttet. Ved det godt.

Takker for points, håber det bliver godt til sidst :o)

Smid bare din kode her når du er færdig, det ville være rart...

- Mikker

OK men skal lige have min computer op og stå først, den er lige gået i stykker :(