Newsgroup: it.comp.lang.visual-basic
Titolo: Ho bisogno di AIUTO per terminare il mio programma!

Sono veramente alle prime armi, e ho bisogno di voi per portare a termine 
il mio progetto!! Ringrazio anticipatamente chiunque mi possa aiutare!
Il programma è così strutturato: l'utente seleziona da un combo il nome 
di un elemento della tavola periodica (es: Argento), a questo punto si 
attivano due pulsanti chiamati "propf" (per le proprietà fisiche) e 
"propc" (per le proprietà chimiche). Ora cliccando sul pulsante che mi 
interessa (es. propf) dovrei riuscire a visualizzare le varie proprietà, 
contenute in un file .txt, in un Textbox.
Ma non so come fare quest'ultimo passaggio! Il file .txt è strutturato 
così, es.:
--Argento.txt--
<propf>
bla bla bla bla
<propc>
bla bla bla bla
--fine Argento.txt--
Se c'è qualcuno che sa come aiutarmi o come modificare in meglio il mio 
programmino, mi aiuti! 
Grazie a tutti,
           Matteo.



A parte il fatto che puoi benissimo usare un solo file di testo anziché tanti quanti sono gli elementi......
Per il resto fai così:
Open "Argento.Txt" for input as #1
do
line input #1, rigatesto
if rigatesto = "<propf>" then
	line input #1, rigatesto
	do while rigatesto <> "<propc>"
		line input #1, rigatesto
		text1.text=text1.text & vbcrlf & rigatesto
	loop
else
	line input #1, rigatesto
end if
loop until eof(1)
Questo codice non fa altro che aprire il file argento.Txt e mettere nel textbox (Text1)ogni proprietà (vbcrlf è il
codice di ritorno a capo, quindi la proprietà .MultiLine della textbox deve essere settata su True)
Comunque, io metterei tutto in un unico file di testo:
Elementi.Txt
strutturato in questo modo:
#Argento
@propf
propf 1
propf2
@propc
propc 1
#Oro
propf 1
@propc
propc 1
propc 2
.....
quindi:
1)	Caricare il combobox (combo1) con il nome degli elementi:
	combo1.clear
	open "Elementi.Txt" for input as #1
	do
		line input #1, rigatesto
		if left(rigatesto, 1)="#" then combo1.additem Right(rigatesto, len(rigatesto)-1)
	loop until eof(1)
2)	Quando clicco sulla combo abilito i due pulsanti chiamati: Prop(0) e Prop(1), ovvero una matrice di controlli:
il 0 è quello per le prop fisiche, l'altro per le chimiche.
 
	Quindi, nell'evento click dei pulsanti, che sarà:
 
	private sub Prop_Click(Index as integer)
 
		dim tipo as string
		if index=0 then
			tipo="@propf"
		else
			tipo="@propc"
		endif
 
		text1.text=""
		open "Elementi.Txt" for input as #1
		do
			line input #1, rigatesto
			if Right(rigatesto, len(rigatesto)-1) = combo1.text then
				line input #1, rigatesto
				if rigatesto=tipo then
					line input #1, rigatesto
					do while left(rigatesto, 1) <>"@" and left(rigatesto, 1) <>"#"
						text1.text=text1.text & vbcrlf & rigatesto
					loop
				endif
			else
				line input #1, rigatesto
			endif	
		loop until eof(1)
	end sub
Sono le 1:24 e questo codice l'ho scritto di pugno, per cui spero che funzioni: se per qualche motivo non è così,
fammelo sapere così lo metto a posto......
Ciao,
Moreno
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------



Scusa perchè non crei un database?
Sarebbe molto più semplice...
Ciao