• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 6 di 6

Discussione: Aiuto in Visual Basic

Cambio titolo
  1. #1
    Aquila Blu
    Ospite

    Aiuto in Visual Basic

    Immaginate che questo sia un file di testo:

    [valentina]
    commento= bella
    [chiara]
    comm= bellissima
    [fine]

    Con Visual Basic devo fare in modo che, una volta aperto il file di testo in una textbox (chiamiamola text1), in altre due textbox (text2 e text3) compaiano le scritte "bella" e "bellissima". Tenete conto che io non conosco la lunghezza delle stringhe da estrarre.
    La mia idea era di utilizzare un comando tipo:

    estrai tutto ci˛ che c'Ŕ dopo 10 caratteri partendo da [valentina] escluso fino a [chiara] escluso
    estrai tutto ci˛ che c'Ŕ dopo 6 caratteri partendo da [chiara] escluso fino a [fine] escluso

    Esiste una cosa del genere?

  2. #2
    Utente
    Registrato il
    11-04
    Messaggi
    92
    puoi anche estrarre tutto cio' che Ŕ dopo il carattere "=" (uguale).
    Cmq prova a vedere un po' con le funzioni Len, Mid, Left e Right se riesci a fare qualcosa.

  3. #3
    Aquila Blu
    Ospite
    Nn esiste un codice ke dica: estrai tutto da - a?

  4. #4
    Utente
    Registrato il
    11-04
    Messaggi
    92
    le funzioni mid, right e left fanno proprio questo.

  5. #5
    Ex ***** VIPz EstathÚ L'avatar di nicjedi
    Registrato il
    12-02
    LocalitÓ
    non vivo
    Messaggi
    16.148
    Allora..usando la funzione InStr trovi dove Ŕ l'uguale (=) del tipo pos = InStr(stringatesto, "=")+2 (il + 2 deriva dal fatto che non voglio compaiano i caratteri = e spazio), poi, per cercare la [ dopo l'uguale si fa pos2 = InStr(pos, stringatesto, "["). a questo punto, per avere la parola, usi parola = Mid( stringatesto, pos, pos2-pos) . Per iterare all'infinito, puoi, ad esempio fare:
    Codice:
      pos = 0
      For i = 0 to N 
      	pos = InStr(pos, stringatesto, "=")+2
      	pos2 = InStr(pos, stringatesto, "[")
      	parola = Mid( stringatesto, pos, pos2-pos)
      	text[i].text = parola
      Next
    Naturalmente in questo caso ho dovuto usare un "vettore" di textbox...spero che tu sappia come si creano

    Ciao

    Nicola
    "La violenza Ŕ l'ultimo rifugio degli incapaci"
    "Non lasciare mai che la morale ti impedisca di fare la cosa giusta"
    "La disumanitÓ del computer sta nel fatto che, una volta programmato e messo in funzione, si comporta in maniera perfettamente onesta."
    "fare molte cose alla volta significa non farne bene nessuna"


  6. #6
    Aquila Blu
    Ospite
    Grazie. Vado subito a provare. Far˛ sapere i risultati.
    Nel frattempo, altri consigli?

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •