[VB.NET] 3 semplici domande

[forno]

Sto lavorando alla mia prima applicazione, non sono un esperto di VB.
Volevo sapere quindi alcune cose che non riesco a fare:[list=1][*]Vorrei sapere come posso leggere e scrivere in un file di testo dei dati nome=valore, conosco i metodi di lettura e scrittura, ma non con i metodi nome=valore, vorrei sapere come posso salvare queste variabili e recuperarle in seguito...[*]Individuare il contenuto di una cartella, e tenere buoni solo i file con estensione .bmp, e inserire questi in una listbox; Come posso far selezionare la cartella tramite un pulsante sfoglia?[*]Caricare un'immagine selezionata dall'utente in una picturebox[/list=1]Help Me

[rex_rome]

Ciao ,
provo ad aiutarti ...

Punto 1 . Non ho ben capito la domanda potresti chiarirmi di cosa hai bisogno ?

Punto 2 - 3
Potresti risolvere il tuo problema come segue :
Inserisci nel form un oggetto OpefFileDialog (Opf) e
scrivi il seguente codice :

Dim New_Image As Image ‘ Dichiari una variabile di tipo Image
        Opf.Filter = "file bitmap |*.bmp" ‚ Dici quali file vuoi vengano visualizzati „Prima del pipe è la descrizione  dopo il pipe e l’estensione che vuoi venga visualizzata 
        If Opf.ShowDialog = DialogResult.OK Then ‘apre la finestra di selezione del file con solo I bmp visibili
            Pc1.Image = New_Image.FromFile(Opf.FileName) ‘quando selezioni il file lo mostra nella Picture Box Pc1
        End If

Spero di esserti stato utile .
Cordiali saluti
Red

[forno]

Il problema è che non lo devo aprire manualmente, ma tutto in una listbox. Cliccando poi sui vari items, in una picturebox appare l'immagine.

Per il punto primo, intendo:

Ho un file data.txt che contiene quete righe:

nome1=valore1
nome2=valore2
nome3=valore3

Quello che voglio sapere, è come faccio a leggere questo file, recuperando i valori singolarmente...

Suggerimenti?

[rex_rome]

Punto 2 . Dovrebbe essere così :

Mediante la pressione del tasto “Sfoglia” verrà eseguito il seguente codice :

Dim V_Files() As String
Dim V_File as string
Dim Tua_Dir as string
Tua_Dir = “C:\vb\..\”
‘ Carico tutti I files della directory in un array .
      V_Files = System.IO.Directory.GetFiles(tua_dir)
			for Each V_File In V_Files
If InStr(UCase(V_File), UCase(".bmp"), CompareMethod.Text) > 0 then
Listbox.items.add v_file

			Next

Termino un lavoro urgente e invio possibili soluzioni punto 1 e 3 .
Ciao
Red

[forno]

A parte il punto 3, che non è più un problema, ora mi restano da risolvere due cose;
Il codice che mi hai dato per il punto 2 funziona bene, ma nella listbox, si visualizza la directory completa oltre al nome del file.
Come posso fare per eliminare sia la parte C:\... che l'estensione finale .bmp dalla listbox?

Poi resta il punto 1

[rex_rome]

Come posso fare per eliminare sia la parte C:\... che l'estensione finale .bmp dalla listbox?

Ciao non so se è il metodo piu' veloce però potrebbe funzionare così :

Conosci la lunghezza del tuo path , quindi il nome dell'immagine parte dalla lunghezza del path + 1 il codice potrebbe diventare così :

Dim V_Files() As String
Dim V_File as string
Dim Tua_Dir as string
Tua_Dir = “C:\vb\..\”
‘ Carico tutti I files della directory in un array .
      V_Files = System.IO.Directory.GetFiles(tua_dir)
			for Each V_File In V_Files
If InStr(UCase(V_File), UCase(".bmp"), CompareMethod.Text) > 0 then
v_file = mid(c_file,len(tua_dir)+1) ' a questo punto dovresti avere il nome del file.bmp
v_file = mid(v_file,1,len(v_file)-4) ' a questo punto dovresti avere solo il nome file
Listbox.items.add v_file

Next

Per il punto 1 ti chiedo se possiamo aggiornarci domani ora sono un po' di fretta .
Cordiali saluti
Fammi sapere se è tutto Ok
Ciao Red

[forno]

An unhandled exception of type 'System.ArgumentException' occurred in microsoft.visualbasic.dll

Additional information: Argument 'Length' must be greater or equal to zero.

Ecco l'errore che mi si presenta nel debug, dopo aver aggiunto l'ultimo codice

[rex_rome]

Ciao scusa mancava un end if .
Ora ho corretto il codice e l'ho provato a me funziona !

        Dim V_Files() As String
        Dim V_File As String
        Dim Tua_Dir As String
        Tua_Dir = "C:\download\" ' La directory delle immagini
        ' Carico tutti I files della directory in un array .
        V_Files = System.IO.Directory.GetFiles(Tua_Dir)
        For Each V_File In V_Files
            If InStr(UCase(V_File), UCase(".bmp"), CompareMethod.Text) > 0 Then
                V_File = Mid(V_File, Len(Tua_Dir) + 1) ' a questo punto dovresti avere il nome del file.bmp
                V_File = Mid(V_File, 1, Len(V_File) - 4) ' a questo punto dovresti avere solo il nome file
                ListBox1.Items.Add(V_File) ' ListBox1 = La tua list box
            End If

        Next

[rex_rome]

Ciao risposta per il punto 1 :

Se tutto il tuo file è strutturato con nome = valore allora
puoi leggere riga per riga e mediante la funzione instr recuperi la posizione del carattere "=" a questo punto con una Mid estrai una substring a partire dal valore della Instr + 1 .

Dim V_File As System.IO.StreamReader = New System.IO.StreamReader(V_Nome_File)
        Dim Str_File As String
        Dim Valore as string	
        Str_File = V_File.ReadLine() ‘ Leggo la prima riga
        While Not Str_File Is Nothing ‘ Ciclo fino a uqando trovo una riga piena
		Valore = mid(str_file,(instr(Str_File,”=”, CompareMethod.Text)+1))
            Str_File = V_File.ReadLine() ‘ Leggo la riga sucessiva 
        End While ‘ loop
        V_File.Close() ‘ chiudo il file

Spero funzioni tutto !
Fammi sapere
Ciao Red

[forno]

Ok, perfatto, ora provo anche il secondo!