Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zapisywanie pliku pod nazwą elementu ListBox ! ! !
anonim




Typ: Nie zarejestrowany
Zapisywanie pliku pod nazwą elementu ListBox ! ! !

Mam wielki problem, z którym ni mogę się uporać. Mianowicie...jak zrobić, aby program po
wybraniu elementu z listy wyboru (ListBox) o nazwie np. MAMA oraz po kliknięciu przycisku <ZAPISZ> tworzył
na dysku C:, plik o nazwie, jaką miał wybrany wcześniej element ListBox, czyli w tym wypadku MAMA &#8211; ma powstać
plik MAMA.txt

Nie chcę, aby użytkownik programu miał wpisywać do pola textowego nazwę i umiejscowienie pliku, chcę aby robiło się to automatycznie po kliknięciu na jedno z pól w ListBox. Próbowałem to zrobic za pomocą kodu:

Private Sub cmdZapisz_Click()
Dim x
Dim y(5)
x=Mama
        Open "C:\&x&.txt" For Append as #1
        Write #1, y(5)
        Close 1
End Sub

Niestety takie podstawianie zmiennych absolutnie nie chce zadziałać.
Podkreślam, że nie chcę użyć kontrolki CommonDialogBox i nie chcę też wpisywać nazwy pliku do np. TextBox'a.

JAK TO ZROBIĆ ? ? ?

02-04-2003 22:31
  
anonim




Typ: Nie zarejestrowany
Odpowiedź

Nie wim, czy o to Ci chodzi, ale można to zrobić chyba tak:
Private Sub cmdZapisz_click()
Dim Nazwa, Text As String
Text = "To, co chcesz zapisać w tym pliku"
Nazwa = "C:\" & Combo1.Text & ".txt"
Open Nazwa For Output As #1
Print #1, Text
close #1
end sub

Przyjmując, że Combo1 we właściwości "Style" ma wartość (chyba)"3 - dropdownlist"

03-04-2003 13:02
  
anonim




Typ: Nie zarejestrowany
Dzieki

Wielkie dzieki - to było proste, nie wiem dlaczego na to nie wpadłem wcześniej - ale dzieki.

Może ktos powie mi jeszcze jak otwierać pliki takim sposobem

04-04-2003 13:16
  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

List1.Clear
Open plik for input as #1
Do While Not (EOF(1))
Line Input #1,Z
List1.AddItem Z
Loop
close #1

ten kod dodaje do listboxa zawartosc danego pliku (1 linia to 1 element) np. jak masz w pliku txt

mama
kot
dom

to dzialanie bedzie analogiczne do
list1.additem "mama"
list1.additem "kot"
list1.additem "dom"


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

06-04-2003 10:08
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1