| | |
| Stránka: 1 z 1
| [ Príspevkov: 7 ] | |
Autor | Správa |
---|
Registrovaný: 18.08.09 Prihlásený: 09.10.09 Príspevky: 6 Témy: 3 |
potrebujem spravit ze otvorim subor,vsetko v nom prepisem,a zapisem do neho text ktory sa nachadza v textboxoch kto wie pomoct ?
|
|
Registrovaný: 29.06.09 Prihlásený: 23.02.11 Príspevky: 61 Témy: 13 | Napísal Wpegb: 10.09.2009 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?????
|
|
Registrovaný: 18.08.09 Prihlásený: 09.10.09 Príspevky: 6 Témy: 3 |
mam textbox ... napisem donho text a potrebujem aby ten text sa zapisal do existujuceho suboru
Ano je to vo VB6
|
|
Registrovaný: 02.11.08 Prihlásený: 10.08.12 Príspevky: 85 Témy: 1 | Napísal Patkoo: 12.09.2009 11:22 | |
|
Kód: Dim ff As Long
ff = FreeFile
Open "subor.txt" For Output As #ff Print #ff, text1.Text Close #ff
toto?
|
|
Registrovaný: 18.08.09 Prihlásený: 09.10.09 Príspevky: 6 Témy: 3 |
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 ...
|
|
Registrovaný: 02.11.08 Prihlásený: 10.08.12 Príspevky: 85 Témy: 1 | Napísal Patkoo: 13.09.2009 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
|
|
Registrovaný: 29.09.07 Prihlásený: 17.03.24 Príspevky: 1232 Témy: 45 Bydlisko: Nové Mesto ... |
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.
_________________ New - HP ProBook 450 G4 | OS: Windows 10 Pro | CPU: Intel Core i3-7100U (2,40GHz) | RAM: 8 GB DDR4 | SSD: 128 GB + HDD: 1 TB Old - HP Compaq nx 7400 rok výroby 2006 OS: Windows XP Home Edition. CPU: Intel(R) Celeron(R) M CPU 420 @ 1.6 GHz | „Tuning“ RAM: 2GB | HDD: 150 GB 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.) |
|
| Stránka: 1 z 1
| [ Príspevkov: 7 ] | |
| 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
|
|