| Autor | Správa |
|---|
sekunds
Užívateľ
Založený: 03.05.2009
Príspevky: 25
 |  Zaslal: Ne 03.05.09 15:03 |   |
ako mam do suboru zapisat to co napisem do textboxu ?
| kód: | Private Sub tlacitko_Click()
Dim Subor As Integer
Subor = FreeFile(1)
Open "C:\aaa.txt" For Output As #Subor
Print #Subor, policko1.Text
Close #Subor
End Sub |
To policko1 je meno textboxu, ale mam to zle zapisane, pomozte mi |
| |
  |
|
BBUlet
Užívateľ
Založený: 30.06.2007
Príspevky: 530
Bydlisko: košice
| | Zaslal: Po 04.05.09 15:45 | |
ja to robim tak
| kód: | FileOpen(1, "C:\aaa.txt", OpenMode.Output)
PrintLine(1, policko1.text)
FileClose(1) |
|
| |
  |
|
sekunds
Užívateľ
Založený: 03.05.2009
Príspevky: 25
| | Zaslal: Po 04.05.09 21:39 | |
mne to hadze chybu ... syntax error ... |
| |
|
|
BBUlet
Užívateľ
Založený: 30.06.2007
Príspevky: 530
Bydlisko: košice
| | Zaslal: Po 04.05.09 21:41 | |
dal si to takto?
| kód: | Private Sub tlacitko_Click()
FileOpen(1, "C:\aaa.txt", OpenMode.Output)
PrintLine(1, policko1.text)
FileClose(1)
End Sub |
|
| |
|
|
sekunds
Užívateľ
Založený: 03.05.2009
Príspevky: 25
| | Zaslal: Ut 05.05.09 15:16 | |
ano presne tak to mam, a stale mi napise chybu |
| |
|
|
Patkoo
Užívateľ
Založený: 02.11.2008
Príspevky: 85
| | Zaslal: Pi 08.05.09 16:21 | |
skus toto, sice to je v podstate to iste ako si pisal vyssie.
| kód: |
Dim ff As Integer
Dim cesta As String
ff = FreeFile
cesta = App.Path & "\subor.txt"
Open cesta For Output As #ff
Print #ff, Text1.Text
Close #ff |
ak nepojde, skus preinstalovat vb. popr. ked mas vistu, potrebujes na zapis suborov administratorske prava pre program. |
| |
|
|
|
