Bjack (Normal User)
Newbie
Messaggi: 9
Iscritto: 05/08/2010
|
Salve gente premetto che sono novello, sto iniziando adesso con la Programmazione
percio mi scuso per le probabili cavolate che scrivero.
Arrivo al dunque...Con vb 2008 express ho creato una form con una datagridview
a sua volta creata da codice, formata da 6 colonne, poi ho una richtextbox e 6
textbox di cui la loro funzionee quella di popolare la datagridview.Tre delle
textbox sonoformattate con una stringa fissa, in poche parole le altre tre
textbox mi servono per inserire i dati cosi che quando do l'invio il datagridview
viene popolato su ongni riga in maniera sequenziale compreso le stringhe fisse,
fin quici siamo, vengo al problema...
Il mio bisogno e quello che mentre sto popolando la datagridview i dati dovranno
essere in automatico trascritti in una richtextbox con una formattazione differente
cioe le righe trascritte devono essere senza tabulazione, tranne che per la prima
stringa fissa inserite Es."FILI 1sbh-xal/25"
allora le stringhe fisse sono
"FILI 1"......... " - "......... "/ ".........
percio la sequenza dovrebbe essere tipo
"FILI 1sbh-xal/25".
Dopo aver popolato la datagridview (senza un numero standard di righe)
ho il bisogno di esportare il tutto in un file txt, premetto che il codice per
esportare i dati in excel sono riuscito a concertarlo, mentre sbatto da un bel po
per esportarli in txt con la stessa formattazione spiegata sopra, cioe priva di
tabulazione.
Conclusione: Non riesco a far trascrivere i dati nella richtextbox e a esportare
il tutto in un file txt.
Spero di essere stato chiaro nel descrivire il tutto...
Un Grazie infinite per chi riuscira a darmi una mano.....
Ps: Allego il codice. Questo codice mi e servito per esportare in txt, come posso modificarlo per esportare il tutto in txt...?
Codice sorgente - presumibilmente VB.NET |
Public Class MainForm Private Sub btnEsportaDataGridView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEsportaDataGridView.Click Dim oExcel As Object Dim oBook As Object Dim oSheet As Object Dim i As Integer Dim j As Integer oExcel = CreateObject("Excel.Application") oBook = oExcel.Workbooks.Add For i = 0 To DataGridView1.RowCount - 2 For j = 0 To DataGridView1.ColumnCount - 1 oExcel.Cells(i + 1, j + 1) = _ DataGridView1(j, i).Value.ToString() Next Next On Error Resume Next oBook.SaveAs("C:\Perline.xlsx") oSheet = Nothing oBook = Nothing oExcel.Quit() oExcel = Nothing GC.Collect() End Sub End Class
|
Ultima modifica effettuata da Bjack il 05/08/2010 alle 20:10 |
|
Ale96 (Member)
Pro
Messaggi: 132
Iscritto: 06/04/2010
|
1) sezione sbagliata (VB.Net 2008 va in Net World)
2) hai scritto un romanzo e non ho intenzione di leggere tutto, sintetizza il contenuto
3) hai inviato il codice di tutto il programma e non solo il pezzo che ti da il problema
4) (meno importante) il codice va scritto fra: code ed /code, non dopo.
Se sistemi queste cose (forse tranne il cambio di sezione) riceverai risposte più chiare
Ora provo a risolvere ciò che ho capito del tuo problema:
a) Per trasportare del testo da una TextBox a una RichTextBox devi fare così (sicuramente lo sai)
Codice sorgente - presumibilmente Plain Text |
RichTextbox1.text = TextBox1.text
|
b) a che servono tre textbox il cui testo non va cambiato? piuttosto usa delle label o ancora meglio crea tre variabili readonly (o tre costanti) di tipo string contenenti i tre testi.
c) per trasportare i dati in un file .txt devi scrivere questo codice (e adattarlo alle tue esigenze)
Codice sorgente - presumibilmente VB.NET |
Dim Writer as New Io.StreamWriter([Path As string]) Writer.Write([String As String]) Writer.Close
|
Da quello che leggo nel codice ci sono molti errori di sintassi se invii il codice ben formattato riesco a capire dove sbagli. Ultima modifica effettuata da Ale96 il 05/08/2010 alle 19:09 |
|
Bjack (Normal User)
Newbie
Messaggi: 9
Iscritto: 05/08/2010
|
Innanzitutto Grazie per avermi risposto e chiedo scusa provedero per essere piu chiaro
appena posso provero i tuoi consigli ti faccio sapere ciao e a presto...
|
|
Ale96 (Member)
Pro
Messaggi: 132
Iscritto: 06/04/2010
|
Bene ricordati questo quando posterai nuovamente sul sito, ora è inutile disturbare l'amministratore per spostare il post, quello che però non ho capito è se ho dato esattamente le risposte che cercavi, ho letto il post a metà!
|
|
Bjack (Normal User)
Newbie
Messaggi: 9
Iscritto: 05/08/2010
|
Grazie ancora Ale no il problema non lo risolto il codice che mi hai postato per la trascrizione da textbox a richtextbox lo conoscevo gia solo che usando quello cambiando textbox mi scrive si sulla richtextbox ma sullo stesso posto, mentre io ho bisogno di scrivere a sequenza cioe una parola affianco a l'altra tipo:
"FILI 1XAL-REM/75".
le stringhe fisse sono "FILI 1"..." - "..." / "...
mentre XAL...REM...75 vengono inserite tramite textbox, ti posto l'immagine forse saree piu piu chiaro...
mentre per quanto riguarda il codice per trasportare i dati in un file .txt non riesco proprio a raddrizzarlo...
|
|
Ale96 (Member)
Pro
Messaggi: 132
Iscritto: 06/04/2010
|
Ah ho capito, per unire due stringe di testo si fa così:
Codice sorgente - presumibilmente Plain Text |
[variabile di tipo string] = Stringa 1 & stringa 2
|
La proprietà text di textbox, richtextbox ed eventualmente pulsanti, la form, ecc. è di tipo string.
Per lascare uno spazio fra le due parole fai così
Codice sorgente - presumibilmente Plain Text |
Textbox1.text = Stringa 1 & " " & stringa 2
|
|
|
Bjack (Normal User)
Newbie
Messaggi: 9
Iscritto: 05/08/2010
|
Dinuovo ciao Ale sai ho provato ad app... il tuo cadico in questaa maniera
Codice sorgente - presumibilmente Plain Text |
RichTextbox1.text=Textbox1.text & " " & Textbox2.text ....
|
ma sulla richtextbox mi scrive solo la prima textbox, Potresti darmi un aiutino?!!!
Grazie Ale
|
|
Bjack (Normal User)
Newbie
Messaggi: 9
Iscritto: 05/08/2010
|
Ok risolto non avevo compreso bene l'impostazione un grazie infinite amici....
|
|
Bjack (Normal User)
Newbie
Messaggi: 9
Iscritto: 05/08/2010
|
Ok risolto non avevo compreso bene l'impostazione un grazie infinite amici....
|
|