Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - file .txt
Forum - Visual Basic 6 - file .txt

Avatar
giusy_m86 (Normal User)
Pro


Messaggi: 143
Iscritto: 09/07/2008

Segnala al moderatore
Postato alle 16:56
Mercoledì, 19/11/2008
ho un file txt da caricare nel mio programma vb6.
la struttura del mio file .txt è la seguente:
a:1234
b:1234
c:1234
a me servirebbe caricare solo i dati alla destra dei due punti come devo fare?

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 17:40
Mercoledì, 19/11/2008
dopo aver letto il file e magari inserito ogni singola riga del file in un vettore:devi usare la funzione right per prelevare un tot di caratteri a partire da destra, poi la funzione instr per sapere la posizione del carattere ":" nel tuo caso
in pratica

Codice sorgente - presumibilmente Plain Text

  1. riga=Right("a:333", Len("a:333") - InStr("a:333", ":"))


PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 18:27
Mercoledì, 19/11/2008
Si potrebbe anche utilizzare uno Split...

PM Quote
Avatar
giusy_m86 (Normal User)
Pro


Messaggi: 143
Iscritto: 09/07/2008

Segnala al moderatore
Postato alle 15:09
Giovedì, 20/11/2008
come mi ha suggerito antometal funziona benissimo :k:
per curiosità, con lo Split come avrei dovuto scrivere?

Ultima modifica effettuata da giusy_m86 il 20/11/2008 alle 15:10
PM Quote
Avatar
Louis (Normal User)
Pro


Messaggi: 150
Iscritto: 22/04/2008

Segnala al moderatore
Postato alle 17:13
Giovedì, 20/11/2008
Ciao,
La funzione Split divide una stringa in base ad un delimitatore (predefinito è lo spazio, nel tuo caso ":") ed assegna i valori all'interno di un array ad una dimensione con base zero, quindi volendo fare un esempio:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2.     Dim stringa1 As String
  3.     Dim array1 As Variant
  4.     stringa1 = "a:1234"
  5.     array1 = Split(stringa1, ":")
  6.     MsgBox array1(1), , ""
  7. End Sub


PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 19:26
Giovedì, 20/11/2008
non è sbagliato usare lo split, ma non è la cosa + adatta
è "sprecato" usare lo split in questa situazione :k:

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 2:03
Venerdì, 21/11/2008
anche io avrei usato l'instr.
tuttavia ho una certa predilezione per lo split.
e` tutto cosi ordinato e leggibile...

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 13:41
Venerdì, 21/11/2008
Come paperoga anchio preferisco usare Split :P

Vbb dai adesso cmq stiamo uscendo fuori tema...xD

L'importante è che abbia risolto quindi finiamola qua :D

PM Quote