Visual Basic 2005 – Visual Basic – Fórum – Programujte.com

Ahoj som uplny zaciatocnik v programovani a chcel by som sa spytat na par veci ohladom tohoto programovacieho jazyka.

Ako si vytvorim okno v ktorom by som mohol pracovat so subormy (napr. Ako vo windows commander) vytvarat adresare mazat kopirovat nieco uplne jednoduche. V jednom okne by bol strom a v druhom by sa zobrazovali subory.

Dalej. Potreboval by som spravit nejaky jednoduchy riadkovac textu. Ked otvorim subor v Textboxe1 tak potrebujem doplnit pred kazdy riadok N a jedno cislo napr. ktore by rastlo podla toho ake by bolo zadane napr. v textboxe2.
N5 X0 Y0
N10 X0 Y0
N15 X0 Y0
N20 X0 Y0
N25 X0 Y0

takze chcel by to asi precitat cely obsah suboru a potom do kazdeho riadku zadat N + cislo ktore by sa zvecsovalo podla kroku v textbox2

tak to je zatial vsetko dakujem

dodo

To s tým riadkovaním neviem a ani som to neskusal, ale to okno so subormi by sa malo dat nejak s prvkom TreeView. Treba hľadať ;-)
A tento programovací jazyk je naozaj dobrý! Dokaze vsetky zakladne funkcie a veci potrebne pre zivot :-D . Je to sranda v ňom programovat. Zatial.

To Tocimanko: No moc si mi s tym neporadil ale snaha sa ceni :-)

To dodo_mt:Ach jo ,zas snaha 0 a čekam že mi někdo hodí kód


ls_filename="c:\pokus.txt"
ls_filenamenew="c:\pokus.new"

ll_number=textbox2
ll_citac=0

Set fs = CreateObject("Scripting.FileSystemObject")

Open ls_filename For Input As #1
Open ls_ilenamenew For Output As #2
Do While Not EOF(1)
Line Input #1, inputdata
ll_citac= ll_citac+ll_number
ls_prefix="N" & trim(str(ll_citac))
ls_newline= ls_prefix & inputdata
Print #2,ls_newline
Loop
Close #1
Close #2
If fs.FileExists(ls_filename) = True Then fs.deletefile (ls_filename)
If fs.FileExists(ls_newname) = True Then fs.copyfile ls_filenamenew, ls_filename, False)
If fs.FileExists(ls_filenamenew) = True Then fs.deletefile (ls_filenamenew)

To maty: Snaha je to mi ver ;-) Len ked clovek nema ani sajnu o programovani tak sa musi nejako odrazit. Ja to vobec nerobim ako nejaku ulohu alebo nieco take proste som sa rozhodol ze vyskusam programovanie a napisem nejaku applikaciu to je vse(tato applikacia by mi pomohla v mojej praci). A fora su nato aby si ludia pomahali nie?? Ja ti mozem poradit tak akurat ako naprogramovat CNC stroj ;-) Ale dakujem aj ked vobec neviem co si to vlasne napisal a ked to hodim do VB2005 tak nic s tych prikazov nepozna :D

dodo

Tu pridavam kod ktory mi dal kolega v praci ale myslim ze ten je napisany v C

private void bGeneruj_Click(object sender, EventArgs e)
{
int i = 0;
krok = (int) udKrok.Value;
strPripona = tbPripona.Text;
strFileNameOUT = Path.GetFileNameWithoutExtension(strFileName) + "." + strPripona;
StreamReader srIN = new StreamReader(strFileName);
StreamWriter srOUT = new StreamWriter(strFileNameOUT);

while ((strLine = srIN.ReadLine()) != null)
{
if (strLine == "")
{
srOUT.WriteLine("");
}
else
{
srOUT.WriteLine("N{0} {1}", i = i + krok, strLine);
}
}

srIN.Close();
srOUT.Close();

MessageBox.Show(Path.GetFullPath(strFileNameOUT), "Zapísané", MessageBoxButtons.OK, MessageBoxIcon.Information);
bUkazOUT.Enabled = true;



dodo

To dodo_mt:nevim co je VB2005, já osobně dělam pod VBA neb nic jiného nemám a nemohu mít,jinak VBA je Visual Basic for Applications a je součástí MS Office, neboli netušim proč by to nemělo fungovat..minimálně to musí fungovat ve Viusal Basic 5.0,6.0
Příkazy If ,DO WHILE jako ten tvůj VB2005 nezná nebo co??????????????????????????????
Když to zkusíš kompilovat tak to vyhodí jako chybu??????????????????????????
Ten druhý kód je zřejmě Visual C

To maty: VB 2005 nemá s VBA, VB 5.0, 6.0 prakticky nic společného.
To dodo_mt: Seš ve špatným topicu - tohle patří do topicu .NET.

To DeaLer: Tak to sa teda ospravedlnujem ze som to napisal tu som zaciatocnik ako som uz hore spominal tak ak sa to da tak to prosim presun do casti NET. dik Alebo to mam tam prepisat znova??

To dodo_mt: nic nepřepisuj, ve své podstatě je to jedno. Až budu mít čas, tak se na to mrknu a snad nějak poradím (pokud ještě nemáš odpověď).

To DeaLer: Nie nie este nemam nic. Co sa tyka programovania tak programovanie je pre mna len taka zabavka cez volny cas moje hlavne povolanie je programator CNC takze pisanie vo VB2005 je len na vyplnenie dlhej chvile.... :-)

ak by nieco tak kludne piste na ICQ

dodo

lol

To dodo_mt: prvním problémem (procházení adresářů/souborů) se řešil tady: http://programujte.com/forum.php?akce=prispevek&id=2068&sekce=directory-list. Myslím, že ti nemusím psát kód celé aplikace. V druhém případě použij třídy StringReader a StringWriter (nebo možná TextReader a TextWriter). S pomocí *Readeru přečti celý soubor po řádcích a zároveň s pomocí *Writeru zapisuj upravené řádky.

To DeaLer: Dik dik dik aspon niekto kto nparadi a nefrfle :-) urcite vyskusam este raz dakujem

dodo