--> Archiwum Forum
Revanisko [ Legent ]
Visual Basic
Takie krotkie pytanko - za pomoca jakiej procedury mozna zrobic zeby po kliknieciu w guzik otwieral pllik ze sciezki jakiejs tam
krooliq3 [ Lucid Dreamer ]
Procedura odczytu danych z pliku
Aby można było odczytać dane zapisane w pliku tekstowym, należy:
Zadeklarować zmienną typu całkowitego - tzw. numer pliku przypisywany danemu plikowi;
Zadeklarować zmienną typu łańcuchowego do przechowywania danych pobranych z pliku (dane_z_pliku);
Przypisać zmiennej (numer_pliku) wartość odpowiadającą wartości niezajętej przez inny plik (można zastosować funkcję FreeFile());
Otworzyć plik do odczytu - procedura FileOpen();
Składnia:
FileOpen(numer_pliku, "ścieżka_do_pliku\nazwa.txt", tryb_otwarcia)
Pobrać dane - przypisać je zmiennej dane_z_pliku lub zapisać dane do pliku;
Zamknąć plik - procedura FileClose().
Revanisko [ Legent ]
ale ja nie chce pobrac i zamknacc chodzi mi o otworzenie drugiegho pliku i dalsze dzialanie w nim az do jego zamkniecia wtedy powrot do pierwszego to tak jakby 2 programy polaczyc w 1
Revanisko [ Legent ]
up
Revanisko [ Legent ]
czy cos takiego jest wogule mozliwe?
krooliq3 [ Lucid Dreamer ]
A to tego nie wiem. Myślałem że chodzi Ci o pobranie danych z pliku tekstowego bo to akurat mieliśmy na lekcji.
Revanisko [ Legent ]
FileOpen(numer_pliku, "ścieżka_do_pliku\nazwa.txt", tryb_otwarcia)
jaki numer i jaki tryb ;/?
yasiu [ Senator ]
revanisko - ty chcesz uruchomic inna aplikacje, czy otworzyc jakis plik z danymi? bo jesli to drugie, to mozesz tych plikow otworzyc kilka - kazdy ma swoj numer i zmienna to przechowywania danych ktorymi poslugujesz sie w zaleznosci od potrzeby
legrooch [ MPO Squad Member ]
Visual Basic for Appliaction?
Visual Basic 6?
Visual Basic .NET?
Visual Basic for Mobile?
Revanisko [ Legent ]
chce otworzyc aplikacje VB6
Revanisko [ Legent ]
up
legrooch [ MPO Squad Member ]
Klikasz dwa razy na przycisku i tworzysz kod.
Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long
' Get a free file number
nFileNum = FreeFile
' Open Test.txt for input. App.Path returns the path your app is saved in
Open App.Path & "Test.txt" For Input As nFileNum
lLineCount = 1
' Read the contents of the file
Do While Not EOF(nFileNum)
Line Input #nFileNum, sNextLine
'do something with it
'add line numbers to it, in this case!
sNextLine = lLineCount & " " & sNextLine & vbCrLf
sText = sText & sNextLine
lLineCount = lLineCount + 1
Loop
TextBox1.Text = sText
Edit:
Bądź:
Revanisko [ Legent ]
to nadal jest otwieranie zeby pobrac dane a ja po prostu chce otworzyc inna aplikacje
pecet007 [ Talk to the claw ]
Shell "C:\ścieżka\nazwaplikacji.exe", vbNormalFocus
przynajmniej tak było w VB6, nie wiem jak w .NETcie
legrooch [ MPO Squad Member ]
otwieral pllik ze sciezki jakiejs tam
chodzi mi o otworzenie drugiegho pliku
a ja po prostu chce otworzyc inna aplikacje
Napisz wreszcie i dokładnie do cholery co chcesz zrobić. Co chcesz otwierać. Co kombinujesz.
Mam ochotę Ci pomóc, ale mnie zaczyna to drażnić...
pecet007 ==> Tyle, że nie wiadomo, co on chce odpalić. Wykonać exe owszem. Ale otworzyć?
musman [ TOOL ]
google sie klaniaja ... albo www.msdn.microsoft.com
a nastapnym razem pisz dokladnie o co chodzi bo nawet jak starasz sie wytlumaczyc to nic z tego nie wynika
yasiu [ Senator ]
nie chcesz go otwierac tylko uruchomic... :)
Revanisko [ Legent ]
pecet007 dzieki toto ;]
Reszta - sorki ,że tak haotycznie przedstawiłem problem - nie mam żadnego wytłumaczenia :(
Jeszcze jedno - jak otwieram za pomocą Shell to on otwiera ale zminimalizowane - nie jest to jakaś straszna wada ale czy nie dało by się zrobić aby otworzył zmaksymalizowane?
pecet007 [ Talk to the claw ]
No to jak sobie napiszesz przecinek to ci automatycznie visualbasicowe ide podpowie składnie, nawet listę pokaże i AFAIK jest tam maximized ;]
zresztą, tutaj masz info
ogólnie polecam vb4all jak jeszcze interesowałem się VB to często z niego korzystałem ;]
Revanisko [ Legent ]
dalem tak i nadal jest zminimalizowane Shell "C:\pro\spelle.exe [, vbMaximizedFocus]"
Shell "C:\pro\spelle.exe ,vbMaximizedFocus" tak tez nie dziala
Revanisko [ Legent ]
up