Visual Basic 6: Ukladanie a načítavanie z .txt

Programovacie jazyky, rady, poradňa...
Gregory House
Zablokovaný
Zablokovaný
Príspevky: 109
Registrovaný: 12 jún 2009, 19:33

Visual Basic 6: Ukladanie a načítavanie z .txt

Príspevok od používateľa Gregory House »

Dobrý deň, snažím sa urobiť hru a ako save by som chcel spraviť niečo takéto:
Mám dajme tomu 3x label a hneď vesľa neho 3x textbox napr:
(lbl1)Peniaze: (txt1)2500
(lbl2)Zbrane: (txt2)50
(lbl3)Populácia: (txt3)150
(Command1)Uložiť

A teraz keď kliknem na Command1, tak sa uloži .txt s názvom Save.txt. Keď ho otvorím, tak v každom riadku bude každé číslo, teda to bude vyzerať takto:

Kód: Vybrať všetko

2500
50
150
Keď hru spustím a dám load, tak sa tie hodnoty podľa PORADIA RIADKU budú načítavať a to sem:

Hodnota z Text1 (2500) sa načíta do Label4
Hodnota z Text2 (50) sa načíta do Label5
Hodnota z Text3 (150) sa načíta do label6

Od vás ale potrebujem vedieť KÓD a prosím vás nedávajte mi link, ale mi prosím vás dajte sem celý kód. V google čo som hľadal, v tom som sa nevyznal. VEĽMI ĎAKUJEM, BUDEM VÁM VEĽMI VĎAČNÝ.


ODMENA: 2x KARMA +
manager666
Star
Star
Používateľov profilový obrázok
Príspevky: 642
Registrovaný: 12 aug 2007, 13:29

Príspevok od používateľa manager666 »

save:
Open filelocation For Output As #1
Print #1, retazec
Close #1
to znamena ze do retazca si ulozis obsahy textboxov nasledovne:
retazec = text1 & vbCrLf & text2...
Gregory House
Zablokovaný
Zablokovaný
Príspevky: 109
Registrovaný: 12 jún 2009, 19:33

Príspevok od používateľa Gregory House »

manager666 napísal:save:
Open filelocation For Output As #1
Print #1, retazec
Close #1
to znamena ze do retazca si ulozis obsahy textboxov nasledovne:
retazec = text1 & vbCrLf & text2...
aha. Prosim ta, nenapises mi to do kodu, nevyznam sa v tom. Ja som uplny zaciatocnik ja to musim vidiet v kode a potom porozumiem. Ale za to dostanes 2 karmy, takze si myslim ze sa ti to oplati :D Prosím.
manager666
Star
Star
Používateľov profilový obrázok
Príspevky: 642
Registrovaný: 12 aug 2007, 13:29

Príspevok od používateľa manager666 »

co na tom nechapes ? :shock:
konkretny priklad:
text1.text = "500"
text2.text = "10"
text3.text = "2500"
retazec = text1.text & vbCrLf text2.text & vbCrLf text3.text

Open "C:\test.txt" For Output As #1
Print #1, retazec
Close #1

A v textovom subore test.txt bude text:
500
10
2500

Understand?
Citanie&zapis textovych suborov TU
Gregory House
Zablokovaný
Zablokovaný
Príspevky: 109
Registrovaný: 12 jún 2009, 19:33

!!!!!!!!!!!!!!

Príspevok od používateľa Gregory House »

Myslíte si, že tým, že mi znížite karmu, tak sa niečo vyrieši? Nie. Ja môžem okašlať celú hojko karmu, aj tak je to blbosť. Čo si myslíte, že kto ste? Ja sa učím z kódov, a to že mi tam niekto popíše kraviny, ktorým nerozumiem neznamená, že mi musíte hneď meniť karmu že som povedal svoj názor.

Oznam pre toho, kto mi znížil alebo zníži karmu, nech sa dá vypchať
Oznam pre manager666, ty by si sa mal tiež nad sebou zamyslieť, pretože keď som jasne napísal, že potrebujem kód a ty sa ozveš ako veľký hrdina a nenapíšeš ho tam, tak sa daj tiež vypchať.

Čo si všetci myslíte, že ste? Toto je priateľské fórum a nie nejaká vojna. Ak chce niekto pomoc a vyjadrí sa konkrétne čo potrebuje, tak keď niečo šľahne do príspevku, aj keď to nie je to, čo tá osoba hľadá, môže rátať s tým, že si ten druhý povie to svoje. Keď som napísal, že chcem KÓD a ty, manager666 mi tam dáš vysvetlenie + nejaké funkcie, mne to nestačí.

Nezistil som, to čo som hľadal.
Napísať odpoveď