Keskustelu: Ohjelmointikysymykset: VB6: Vb 6 arpominen tekstitiedostoon

Haluaisin tehdä semmosen ohjelman joka arpoo kirjaimia (isoja ja pieniä) ja numeroita sekaisin, ja tallentaa ne teksti tiedostoon. Esimerkiksi tälleen:

**************************

j0uur
jegtw
fsdge
643gb
as58e
jfje5

**************************

Joku vois heittää jonkinm00sta koodin tynkää.

...etkös juuri kysynyt samaa C-osiossa? Katso sieltä antamaani koodintynkää.
https://www.ohjelmointiputka.net/keskustelu/3004-cpp-text

juu, mutta olisko sama mahdollista toteuttaa vbllä?

Jep. Tai no, taulukko ei ole paras mahdollinen tapa mutta sitä on helpompi käyttää kuin muita menetelmiä, sen muodostus on vain joillekin hankalaa...
Taulukko VBL:llä:

Dim taulukko As String * 62 '62=26+26+10
Dim r As Integer
  taulukko = ""
  For r = Asc("a") To Asc("z")
    taulukko = taulukko + Chr$(r)
  Next r
  For r = Asc("A") To Asc("Z")
    taulukko = taulukko + Chr$(r)
  Next r
  For r = Asc("0") To Asc("9")
    taulukko = taulukko + Chr$(r)
  Next r

Ja taulukon käyttöä (taas)

  'Muodostetaan rivi str:ään
Dim str As String * 15
  str = ""
  For r = 1 To 5
    str = str + Mid$(taulukko, Int(Rnd*62)+1, 1)
  Next
  Msgbox str