 | | |
 | Stránka: 1 z 1
| [ Príspevkov: 6 ] | |
| Autor | Správa |
|---|
Registrovaný: 03.05.09
Prihlásený: 21.05.11
Príspevky: 25
Témy: 9 |
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
|
|
Registrovaný: 30.06.07
Prihlásený: 24.07.12
Príspevky: 530
Témy: 85
Bydlisko: košice |  Napísal BBUlet: 04.05.2009 15:45 | |
|
ja to robim tak
Kód: FileOpen(1, "C:\aaa.txt", OpenMode.Output)
PrintLine(1, policko1.text)
FileClose(1)
|
|
Registrovaný: 03.05.09
Prihlásený: 21.05.11
Príspevky: 25
Témy: 9 | Napísal autor témy sekunds: 04.05.2009 21:39 | |
|
mne to hadze chybu ... syntax error ...
|
|
Registrovaný: 30.06.07
Prihlásený: 24.07.12
Príspevky: 530
Témy: 85
Bydlisko: košice | Napísal BBUlet: 04.05.2009 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
|
|
Registrovaný: 03.05.09
Prihlásený: 21.05.11
Príspevky: 25
Témy: 9 | Napísal autor témy sekunds: 05.05.2009 15:16 | |
|
ano presne tak to mam, a stale mi napise chybu
|
|
Registrovaný: 02.11.08
Prihlásený: 10.08.12
Príspevky: 85
Témy: 1 | Napísal Patkoo: 08.05.2009 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.
|
|
| Stránka: 1 z 1
| [ Príspevkov: 6 ] | |
| Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre
|
|
