VB zapis do souboru

uzivatel007 · Napísal **uzivatel007**: 05.09.2009 14:31 | VB zapis do souboru

potrebujem spravit ze otvorim subor,vsetko v nom prepisem,a zapisem do neho text ktory sa nachadza v textboxoch

kto wie pomoct ?

Wpegb · Napísal **Wpegb**: 10.09.2009 18:06 | VB zapis do souboru

mozno by som ti vedel pomôct, ale potrebujem vediet, či som ta správne pochopil.
takže potrebujes zmeniť text suboru .txt na text v tvojom textboxe?????
a ešte že je to VB 6.0?????

uzivatel007 · Napísal autor témy **uzivatel007**: 12.09.2009 9:42 | VB zapis do souboru

mam textbox ... napisem donho text a potrebujem aby ten text sa zapisal do existujuceho suboru

Ano je to vo VB6

Patkoo · Napísal **Patkoo**: 12.09.2009 11:22 | VB zapis do souboru

Kód:

Dim ff As Long

ff = FreeFile

Open "subor.txt" For Output As #ff
Print #ff, text1.Text
Close #ff

toto?

uzivatel007 · Napísal autor témy **uzivatel007**: 12.09.2009 13:30 | VB zapis do souboru

ale este by som potreboval zeby ak zapise do suboru thak nech zapise na koniec ... nechcem aby cely obsah suboru prepisalo ale zapisalo ku tomu na koniec ...

Patkoo · Napísal **Patkoo**: 13.09.2009 11:23 | VB zapis do souboru

dlho som nerobil s vb6,ale skus takto

Kód:

Dim povodnyText As String
Dim ff As Long

ff = FreeFile

Open "subor.txt" For Input As #ff
povodnyText = Input(LOF(ff), #ff)
Close #ff

ff = FreeFile

Open "subor.txt" For Output As #ff
Print #ff, povodnyText & vbNewLine
Print #ff, text1.Text
Close #ff

marian_sk · Napísal **marian_sk**: 05.11.2011 18:16 | VB zapis do souboru

Dobrý deň na internete som našiel niečo ako reuloženie samotného EXE – čka.

Kód:

Private Sub Command1_Click()
Dim TMP As String

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
TMP = Input(LOF(1), 1)
Close #1

TMP = Mid(TMP, InStr(TMP, "[START]") + 1, Len(TMP))

Open App.Path & "\" & App.EXEName & "-Extracted.exe" For Binary Access Write As #1
Put #1, 1, TMP
Close #1
End Sub


Private Sub Command2_Click()
Text1.Text = "Ahoj Svet"
End Sub

'<!--Zdroj kódu je >http://osix.net/modules/article/?id=805< -->

A ako by sa dalo pri spustení programu zmeniť v „Text1.Text“ – tu. Text z „Ahoj Svet“ na „PCFÓRUM.SK“a vzápätí ho uloží aj zo zmenením samotného textu v („Text1.Text“ + „App.EXEName“) Spolu. :oops: