[VB.NET] problema comboBox e file reader

[Blàck & White]

Ciao a tutti,
Ho attribuito ad un Button questa funzione

Dim fileReader As System.IO.StreamReader fileReader = My.Computer.FileSystem.OpenTextFileReader(TextBox1.Text & "\Gloves\ConfigureGloves.txt") 
Select Case ComboBox1.SelectedIndex 
Case 0 My.Computer.FileSystem.CopyDirectory(TextBox1.Text & "\Gloves\" & fileReader.ReadLine(1) & "\dt0d.img", TextBox2.Text & "\dt0d.img", True) MsgBox("Apply") 
Case 1 My.Computer.FileSystem.CopyDirectory(TextBox1.Text & "\Gloves\" & fileReader.ReadLine() & "\dt0d.img", TextBox2.Text & "\dt0d.img", True) MsgBox("Apply2") 
Case 2 My.Computer.FileSystem.CopyDirectory(TextBox1.Text & "\Gloves\" & fileReader.ReadLine & "\dt0d.img", TextBox2.Text & "\dt0d.img", True) MsgBox("Apply") 
Case 3 My.Computer.FileSystem.CopyDirectory(TextBox1.Text & "\Gloves\" & fileReader.ReadLine & "\dt0d.img", TextBox2.Text & "\dt0d.img", True) MsgBox("Apply") End Select

Faccio il debug e quando seleziono per esempio il case 3 dal ComboBox e poi clicco sul button(con i codici sopra elencati)mi copia sempre i file del Case 0 qualcuno sa spiegarmi perchè accade ciò e come posso risolvere?

[Hard*RTOS]

Credo ti riferisca a VB.NET, non era specificato nel titolo.

Non mi sembra ci sia molta differenza tra le varie opzioni della costrutto Select Case, e senza il reale valore delle variabili e delle proprietà mostrate è difficile rispondere (es. textbox2.text?, ReadLine?)

In generale, sarebbe meglio un codice del genere:

dim path_1 as string, path_2 as string

path_2 = TextBox2.Text & "\dt0d.img" 'visto che il valore non cambia

Select case ComboBox1.SelectedIndex.tostring 
case = "0"
path_1 = TextBox1.Text & "\Gloves\" & fileReader.ReadLine(1) 
case = "1"
path_1 = TextBox1.Text & "\Gloves\" & fileReader.ReadLine() 
'e così via..
end select

My.Computer.FileSystem.CopyDirectory(path_1, path_2, True)

Ciao

[Blàck & White]

Allora Textbox legge un percorso che viene selezionato prima, e poi per ogni case legge una stringa da un file txt in questo caso ConfigureGloves.txt e la inserisce nel percorso del copy directory, provo con il tuo metodo e quindi sarebbe così

dim path_1 as string, path_2 as string

path_2 = TextBox2.Text & "\dt0d.img" 
Select case ComboBox1.SelectedIndex.tostring 
case = 0
path_1 = TextBox1.Text & "\Gloves\" & fileReader.ReadLine() 
My.Computer.FileSystem.CopyDirectory(path_1, path_2, True)
case = 1
path_1 = TextBox1.Text & "\Gloves\" & fileReader.ReadLine() 
My.Computer.FileSystem.CopyDirectory(path_1, path_2, True)
case = 2
path_1 = TextBox1.Text & "\Gloves\" & fileReader.ReadLine() 
My.Computer.FileSystem.CopyDirectory(path_1, path_2, True)
end select

Giusto?

[Hard*RTOS]

Originariamente inviato da Blàck & White
Giusto?

Anche se non ho capito cosa sia fileReader, in realtà non ha senso invocare questa riga di codice "My.Computer.FileSystem.CopyDirectory(path_1, path_2, True)" ad ogni Case - come precedentemente detto - per cui puoi benissimo inserirla alla fine del Select case, cioè dopo "End Select". Non credi?

Per favore, posta il codice negli appositi TAG CODE, migliora notevolmente la leggibilità e quindi l'interpretazione del codice.

[Blàck & White]

Originariamente inviato da Hard*RTOS
Anche se non ho capito cosa sia fileReader, in realtà non ha senso invocare questa riga di codice "My.Computer.FileSystem.CopyDirectory(path_1, path_2, True)" ad ogni Case - come precedentemente detto - per cui puoi benissimo inserirla alla fine del Select case, cioè dopo "End Select". Non credi?

Per favore, posta il codice negli appositi TAG CODE, migliora notevolmente la leggibilità e quindi l'interpretazione del codice.

scusa ultima domanda come faccio a fare in modo che dato che devo scrivere

Dim path_1 As String, path_2 As String ecc.. fino  path_52 As String

come faccio a semplificare tutto senza scriverli tutti quanti ?

[oregon]

Usi un vettore di stringhe ...

[Blàck & White]

Originariamente inviato da oregon
Usi un vettore di stringhe ...

Cioe?

[oregon]

Cioè

Dim path(52) As String


Ma se non conosci questi elementi base di un linguaggio così semplice come il VB, ti consiglio di fermarti e studiarlo un po' prima. Non si può programmare se non si hanno le minime basi.

http://www.pierotofy.it/pages/guide/...Array_Parte_I/

[Blàck & White]

Originariamente inviato da oregon
Cioè

Dim path(52) As String


Ma se non conosci questi elementi base di un linguaggio così semplice come il VB, ti consiglio di fermarti e studiarlo un po' prima. Non si può programmare se non si hanno le minime basi.

http://www.pierotofy.it/pages/guide/...Array_Parte_I/

ho fatto come dici tu e me li da come errore tutti i path che dopo ho inserito esce scritto path_1 non dichiarato,path_2 non dichiarato ecc..

[oregon]

Originariamente inviato da Blàck & White
ho fatto come dici tu

Come dico io ... come ? Cosa hai fatto ?

e me li da come errore tutti i path che dopo ho inserito

Ma di che parli ?