Oppure

Loading
05/08/10 16:43
Bjack
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.....:k:

Ps: Allego il codice. Questo codice mi e servito per esportare in txt, come posso modificarlo per esportare il tutto in txt...?
 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 05/08/10 18:10
aaa
05/08/10 17:06
Ale96
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)
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)
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 05/08/10 17:09
aaa
05/08/10 17:21
Bjack
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...
aaa
05/08/10 19:03
Ale96
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à!
aaa
05/08/10 23:52
Bjack
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...
aaa
06/08/10 6:55
Ale96
Ah ho capito, per unire due stringe di testo si fa così:
[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ì
Textbox1.text = Stringa 1 & " " & stringa 2
aaa
06/08/10 15:38
Bjack
Dinuovo ciao Ale sai ho provato ad app... il tuo cadico in questaa maniera
RichTextbox1.text=Textbox1.text & " " & Textbox2.text ....

ma sulla richtextbox mi scrive solo la prima textbox, Potresti darmi un aiutino?!!!
Grazie Ale :hail:
aaa
06/08/10 16:30
Bjack
Ok risolto non avevo compreso bene l'impostazione un grazie infinite amici....:k:
aaa