Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zapis do pliku informacji z FlexGrida i kilku TextBoxów
doprze




Typ: neutral
Postów: 7
Zarejestrowany: Apr 2005
Zapis do pliku informacji z FlexGrida i kilku TextBoxów

Mam kilka textboxów i wynik pewnych wyliczeń zapisany w FlexGridzie... chciałbym to wsyztsko zapisać w pliku na dysku (powiedzmy txt)... jak to zrobic?

15-04-2005 14:27
Pokaż profil doprze  Wyślij email do doprze   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Open.... As #1
For i = 1 To FlexGrid.RowCount
    For j = 1 To FlexGrid.ColumnCount
        wiersz = wiersz & FlexGrid.Column(j) & vbTab
    Next j
    Print  #1, wiersz
    wiersz = ""
Next i
Close #1

Nie mam VB, więc strzelam, że FlexGrid ma takie właściwości.

Może posiadać też coś w stylu
FlexGrid.Lines.SaveToFile(filename)


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

16-04-2005 20:56
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
OPAX
RatNet



Typ: neutral
Postów: 21
Zarejestrowany: Mar 2005

Private Sub Command1_Click()
Dim Zmienna(2)
Zmienna(1) = "Siema
Zmienna(2) = text1.text
Open "C:\" + "plik" + ".txt" For Output As #1
For X = 1 To 2
Write #1, Zmienna(X)
Next X
Close #1
End Sub
' potrzebny jeden commandbutton i textbox


_____________________________________________
Sendpack packet

17-04-2005 21:20
Pokaż profil OPAX  Wyślij email do OPAX   Odwiedź stronę OPAX       8910371
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

Dim A As String
Dim W As Integer, K As Integer
Open.... As #1
    For W = 0 To Me.MSFlexGrid1.Rows - 1
        For K = 0 To Me.MSFlexGrid1.Cols - 1
            Rem W to są wiersze, K to kolumny
            A = Me.MSFlexGrid1.TextMatrix(W, K)
            Print  #1, A
        Next
        Print  #1
    Next
Close #1 

Rem na tej samej zasadzie można wpisywać rekordy do Rem komórek
Rem np; Me.MSFlexGrid1.TextMatrix(W, K)="???"


_____________________________________________
Visual Basic.NET - Mercedes dla programistów

17-04-2005 21:46
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
doprze




Typ: neutral
Postów: 7
Zarejestrowany: Apr 2005

dziękuję za podpowiedzi, sprawdziłem je i działają. Jeśli moe jeszcze o coś Was zapytać to: jak spowodować aby zapisywane do pliku wartości były zapisywane w jedej lini (1 linia z FlexGrida-w jednej linii pliku txt?) ?

18-04-2005 11:12
Pokaż profil doprze  Wyślij email do doprze   
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

Dim A ,B As String
Dim W As Integer, K As Integer
Open.... As #1
    For W = 0 To Me.MSFlexGrid1.Rows - 1
        B = ""
        For K = 0 To Me.MSFlexGrid1.Cols - 1
            Rem W to są wiersze, K to kolumny
            A = Me.MSFlexGrid1.TextMatrix(W, K)
            B=B & A & Chr(9)
        Next
        Rem Chr(9) - to jest tabulator
        Print  #1, B
    Next
Close #1


_____________________________________________
Visual Basic.NET - Mercedes dla programistów

18-04-2005 17:29
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1