| Autor | Správa |
|---|
uzivatel007
Užívateľ
Založený: 18.08.2009
Príspevky: 6
 |  Zaslal: So 05.09.09 14:31 |   |
potrebujem spravit ze otvorim subor,vsetko v nom prepisem,a zapisem do neho text ktory sa nachadza v textboxoch  kto wie pomoct ? |
| |
  |
|
Wpegb
Užívateľ
Založený: 29.06.2009
Príspevky: 61
| | Zaslal: Št 10.09.09 18:06 | |
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
Užívateľ
Založený: 18.08.2009
Príspevky: 6
|
mam textbox ... napisem donho text a potrebujem aby ten text sa zapisal do existujuceho suboru
Ano je to vo VB6 |
| |
|
|
Patkoo
Užívateľ
Založený: 02.11.2008
Príspevky: 85
| | Zaslal: So 12.09.09 11:22 | |
| kód: |
Dim ff As Long
ff = FreeFile
Open "subor.txt" For Output As #ff
Print #ff, text1.Text
Close #ff
|
toto? |
| |
|
|
uzivatel007
Užívateľ
Založený: 18.08.2009
Príspevky: 6
| | Zaslal: So 12.09.09 13:30 | |
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
Užívateľ
Založený: 02.11.2008
Príspevky: 85
| | Zaslal: Ne 13.09.09 11:23 | |
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 |
|
| |
|
|
imrich
Užívateľ
Založený: 29.09.2007
Príspevky: 127
Bydlisko: Nové Mesto nad Váhom
Vek: 33
| | Zaslal: So 05.11.11 19:16 | |
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.  
Ďakujem Vám za akúkoľvek odpoved. |
_________________
Hovor vždy pravdu aj keby ta to malo bolieť. Ale časom sa ju naučíš počúvať, aj keď ty do očí klamú.
Chemická zlúčenina vodíka s kyslíkom, ktorá produkuje minimálnu úroveň hlasitosti,
spôsobuje eróziu vrstvy hornín, uložených pozdĺž jej trajektórie. (Ticha voda brehy myje.) | |
 |
|
|
