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 - copiare singoli caratteri e formare + stringhe
Forum - Visual Basic 6 - copiare singoli caratteri e formare + stringhe

Avatar
azz.ciccio (Normal User)
Pro


Messaggi: 74
Iscritto: 08/04/2009

Segnala al moderatore
Postato alle 9:44
Domenica, 19/04/2009
ciao a tutti, sempre con il mio progetino. (questa volta un po' di lavoro da solo l'ho fatto...):k:

mi ritrovo con un file di testo con molti dati. per semplicita' ho gia' scritto il codice per leggere solo quello che mi serve! (fortuna che i tag identificativo stanno a sx...)

la riga con la spiegazione di ogni tag e' questa:

  '3 0 1 9.9 7.4 .07 .07 .038 0 2
  '^ ^-------------------------------- tag foratura
  '    ^------------------------------ tipo di piazzola
  '      ^^^ ^^^---------------------- coordinate
  '              ^^^ ^^^-------------- diametro piazzola
  '                      ^^^^--------- diametro foratura
  '                           ^^^^---- serigrafia



ho gia' recuperato i primi 6 caratteri, riesco a suddividere gli spazi vuoti dai dati.
con questa routine.

Codice sorgente - presumibilmente VB.NET

  1. If Left(Riga, 5) = "3 0 1" Then
  2. MsgBox Riga
  3.  ' qui devo cancellare i primi 5 caratteri
  4.   Riga = Replace(Riga, "3 0 1 ", "")
  5. MsgBox Riga ' mostra che cancella i primi 5 caratteri
  6. For i = 1 To Len(Riga)
  7.  outstr = Mid(Riga, i, 1)
  8.  ' in outstr mi ritrovo il primo carattere
  9.   If outstr = " " Then
  10.    MsgBox "spazio vuoto"
  11.   Else
  12.    MsgBox outstr
  13.   End If
  14. Next i
  15. End If



il problema e che adesso mi ritrovo a leggere un carattere alla volta. (non posso fare diversamente inquanto i valori tra uno spazio e l'altro cambiano di cifre decimali.)
quindi dovrei creare 5 variabili di tipo string con i valori cosi' scritti

3 0 1 9.9 7.4 .07 .07 .038 0 2 ' esempio stringa letta dal file e contenuta in una stringa

var1 = "9.9"
var2 = "7.4"
var3 = ".07"
var4 = ".07"
var5 = ".038"

tutto il resto non mi serve.
qualche idea? o traccia?:-|
grazie:k:

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 10:14
Domenica, 19/04/2009
Devi semplicemente usare la funzione Split (leggine il funzionamento nella guida).

PM Quote
Avatar
azz.ciccio (Normal User)
Pro


Messaggi: 74
Iscritto: 08/04/2009

Segnala al moderatore
Postato alle 10:28
Domenica, 19/04/2009
Testo quotato

Postato originariamente da theprogrammer:

Devi semplicemente usare la funzione Split (leggine il funzionamento nella guida).



la funzione split? be' mi butto subito nella lettura.
grazie 1000 per la retta via.
A.:k:

PM Quote
Avatar
azz.ciccio (Normal User)
Pro


Messaggi: 74
Iscritto: 08/04/2009

Segnala al moderatore
Postato alle 10:37
Domenica, 19/04/2009
piu' facile del previsto risolto.
qui una prima versione del codice che e' gia' quasi perfetto.
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Form_Load()
  2. Dim string1 As String
  3. Dim array1 As Variant
  4. string1 = "3 0 1 3.9 4.3 .06 .06 .038 90 1"
  5. array1 = Split(string1, " ")
  6. MsgBox array1(3), , ""
  7. MsgBox array1(4), , ""
  8. MsgBox array1(5), , ""
  9. MsgBox array1(6), , ""
  10. MsgBox array1(7), , ""
  11. End
  12. End Sub


grazie:k:
A.

PM Quote