Visualizzazione dei risultati da 1 a 7 su 7
  1. #1

    [vb6] Devo creare un file .txt con lettere d 4 caratteri

    Devo creare un file .txt con lettere d 4 caratteri.. per favore mi potete dare un consiglio..io ho provato cn delle routine e dei randomize ma so farlo solo cn i numeri....praticamente quando io clikko su un command button vorrei k si crei un file di testo cn queste lettere di 4 caratteri preceduti prima da una parloa
    IO sono riuscito cn Mirc a farlo ma vorrei realizzarlo cn VB6...
    grazie in anticipo....thanks

    mirc code:
    -----------------------------
    alias Lol {
    .set %bho 0
    :start
    if (%bho == $null) {
    .set %bho 0
    }
    if (%bho != 100) {
    .inc %bho
    .write Lol.txt mkdir $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
    goto start
    }
    }

    -------------------------------

  2. #2
    Utente di HTML.it L'avatar di Sypher
    Registrato dal
    Jun 2003
    Messaggi
    1,994
    se sai farlo con i numeri comprendi il numero random fra i valori ascii dei caratteri e convertili in lettere...mi sono spiegato?
    La passera non dura perchè Sypher la cattura!

    "No one like us we don't care, we are millwall, super millwall, we are millwall from the DEN"

  3. #3
    so farlo in mirc con le lettere...in vb6 nn so randomizzare i numeri ma nn farli salvare in un file di testo e sopratutto fare lettere di 4 caratteri di cui me ne servono un numero N ...nn mi spiego bene è un po difficile...xro se sai darmi una spiegazione te ne saro grato...

  4. #4
    Utente di HTML.it L'avatar di Artemio
    Registrato dal
    Jan 2006
    Messaggi
    178
    per le lettere casuali
    basta che usi

    chr(tuo numero casuale)

  5. #5
    prima di tutto devi aprire un file di testo in questo modo:

    codice:
    Dim fnum As Long
    fnum = Freefile
    open nomefile for Binary as #fnum
    Fatto questo salvi in una stringa le sequenza di lettere casuali con la funzione chr() come ti ha fatto vedere Artemio.

    Poi interisci il tutto nel file e lo chiudi in questo modo:

    codice:
    Put #fnum, , tuastringa
    
    Close #fnum
    Dovrebbe essere tutto.
    Ciao alla prossima

  6. #6
    si ho capito k per generare le lettere bisogna usare chr()...pero a me serve k genera 4 lettere casuali sulla stessa riga.....e poi devo mette lettere casuali x 40 righe(volte)....

  7. #7
    puoi utilizzare un ciclo annidato tipo questo:

    codice:
    ...
    Dim stringa As String
    Dim i,m As Integer
    
    For i = 0 to 39
     For m = 0 to 3
       stringa = stringa & chr(numcasuale)
     Next
     Put #fnum, ,stringa
     stringa = ""
    Next
    ...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.