Roland Δημοσ. 10 Ιουνίου 2002 Δημοσ. 10 Ιουνίου 2002 eimai entelos arxarios ston programmatismo. Thelo na kano to eksis aplo se visual basic na kano ena koympi Browser kai kanontas klik se enan fakelo xvris na mpo mesa na katagrafei ta onomata ton arxeion toy fakeloy se ena txt arxeio.A. ayto einai diskolo na ginei peite moy mono kapoia arxika bhmata poy prepei na kano gia na to psakso kai monos moy. eyxaristo gia opoiadipote apanthsh.
apoc Δημοσ. 10 Ιουνίου 2002 Δημοσ. 10 Ιουνίου 2002 Γεια σου φιλε! Ναι γινεται αυτο που θελεις, υπαρχουν διαφοροι τροποι να το κανεις...οι πιο newbie ( οπως αυτος που θα δειξω) και οι πιο advanced οπου τα κανεις ολα προγραμματιστικα χωρις να χρησιμοποιεις Visual Components! Λοιπο τι εκανα εγω! Σε μια φορμα εριξα 1 Button , Button1 1 DirListBox , Dir1 1 FileList Box , File1 Θα τα βρεις και τα 3 αριστερα σου στην standard παλετα εργαλειων, Καταρχην αυτο που ηθελα ηταν οταν κλικαρο το λιστα των directory το FileListBox απο διπλα να μου δειχνει τα αρχεια που περιεχει! ετσι προσθεσα τον εξης κωδικα στο "Event" Dir1_Change Private Sub Dir1_Change() File1.Path = Dir1.Path ' kathe fora allazei to path kai tou file1 End Sub Μετα στο Click του button1 εγραψα τα εξης! Private Sub Command1_Click() Dim i As Integer Dim c As Integer Dim iFileHand As Integer i = File1.ListCount iFileHand = FreeFile 'open a new file Οpen "c:\VBlog.txt" For Output As #iFileHand 'loop the contents of the File List For c = 0 To i - 1 'write the name of each file Write #iFileHand, File1.List© Write #iFileHand, Next c 'close the file Close #iFileHand --------------------------------------------------- Ο κωδικα παραπανω κανει τα εξης! Με το που πατας το Button πηγαινει στο FileListBox και βλεπει εκεινη την στιγμη σε πιο directory Βλεπει και ποσα αρχεια εχει μεσα , το directory ειναι αυτο που εχεις διαλεξει απο τα DirListBox . Αφου το κανει αυτο δημιουργει ενα αρχειο για να γραψει , και για καθε αντικειμενο της FileList πηγαινει και τυπωνει το ονομα το αρχειου σε ενα προκαθορισμενο file πχ εγω το εβαλα καρφωτα στο c:\VBlog.txt οταν η λιστα με τα αρχεια του FileListBox τελειωσει κλεινει το αρχειο! ----------------------------------------------------- Η παραπανω λυση βεβαια ειναι αρκετα απλοικη , γιατι δεν εχει κωδικα που ελενχει για τυχον λαθη, καθε φορα που πατας το Button το αρχειο σβηνεται και δημιουργειται απο την αρχη .Θα μπορουσαι καλιστα να ειναι ενα Random Access File που καθε φορα θα το ανοιγες και θα προσθετες την λιστα και ενως νεου φακελου.Και γενικα πολλες αλλες λεπτομεριες τις οποιες τις αφηνω για μετα...ισως και στην δικη σου κριση..με λιγο ψαξιμο στο Help της VB Μπορεις να τα υλοποιησεις ολα τα παραπανω..αν εχει ξανα προβλημα , ξαναποσταρε! Αυτα ελπιζω να βοπθησα!
Roland Δημοσ. 10 Ιουνίου 2002 Μέλος Δημοσ. 10 Ιουνίου 2002 file apoc kat arxas thelo na s' eyxaristhso gia ton xrono poy dietheses na apanthseis kai malista me tropo eykolonohto gia enan arxario san kai mena. To paradeigma soy omologo oti einai oti prepei gia na arxiso apo kapoy . To provlima einai: oti patontas to koympi den grafei to txt arxeio alla bgazei minima lathoys. Poio einai to lathos . An thes kane ton kopo kai des to arxeiaki poy to anevasa edo epishs ti prepei na kano gia na leitoyrgei to drive list box? thnks
apoc Δημοσ. 10 Ιουνίου 2002 Δημοσ. 10 Ιουνίου 2002 Για καποιο παραξενο λογο sto command Open "c:\VBlog.txt" For Output As #iFileHand Sto O του Open ειχε βγει ενας παραξενος χαρακτηρας και φυσικα εβγαζε λαθος.Μολις το διορθωσα δουλεψε μια χαρα!
Roland Δημοσ. 12 Ιουνίου 2002 Μέλος Δημοσ. 12 Ιουνίου 2002 file apoc eisai oreos pragmatika doylepse teleia. H lista poy dhmioyrgei exei thn parakato morfh: "Loreena McKennitt - All souls night.mp3" "Loreena McKennitt - Between the shadows.mp3" "Loreena Mckennitt - Tango To Evora.mp3" "Loreena McKennitt_Bonny portmore.mp3" bazei sthn arxh kai sto telos kathe gramhs eisagogika kai keno anamesa se kathe grammh. Mporo;yme na epemboyme s; ayta?Dhladh h lista mas na mhn exei ta eisagogika kai thn kenh grammh? epishs ginete na toy poyme na mhn bgazei thn katalhksh kai to apotelesma na eina kapos etsi: Loreena McKennitt - All souls night Loreena McKennitt - Between the shadows Loreena Mckennitt - Tango To Evora Loreena McKennitt_Bonny portmore
apoc Δημοσ. 12 Ιουνίου 2002 Δημοσ. 12 Ιουνίου 2002 Οκ... Μεσα στην For loop εκει που γραφει , αντι για Write #iFilehand κτλ κτλ γραψε Print Και αν δεν θες να εμφανιζεται το κενο μεταξυ κανε αρχειου απλα σβησε το δευτερο Write Statement απο κατω! Aυτά! <small>[ 12-06-2002, 12:03: Το μήνυμα επεξεργάστηκε από: apoc ]</small>
Roland Δημοσ. 12 Ιουνίου 2002 Μέλος Δημοσ. 12 Ιουνίου 2002 pos mporo na prostheso ston kodika toy koympioy th dhnatothta na sbhnei thn kataliksi ? dhladi to .mp3 ?
apoc Δημοσ. 13 Ιουνίου 2002 Δημοσ. 13 Ιουνίου 2002 Private Sub Command1_Click() Dim i As Integer Dim c As Integer Dim iFileHand As Integer Dim iStrIndex As Integer Dim sFileName as String i = File1.ListCount iFileHand = FreeFile 'open a new file Οpen "c:\VBlog.txt" For Output As #iFileHand 'loop the contents of the File List For c = 0 To i - 1 'search for '.' character iStrIndex = InStr(File1.List© ,".") "store in a string the substring , filaname sFileName = Left(File1.List© ,iStrIndex) 'write to file Write #iFileHand, sFileName Next c 'close the file Close #iFileHand
apoc Δημοσ. 13 Ιουνίου 2002 Δημοσ. 13 Ιουνίου 2002 χεχεχε! ειναι γραμμη σχολιου και μαλλον εχει γραφτει εδω! αν βγαλεις το " και βαλεις ' το σχολιο θα παιζει μια χαρα! Αν δεν σου αρεσουν τα σχολια βγαλτα ολα! οσες γραμμες αρχιζουν με ' = σχολια
Roland Δημοσ. 13 Ιουνίου 2002 Μέλος Δημοσ. 13 Ιουνίου 2002 ok fina yparxei periptosh na mas bazei sthn proth gramh to onoma toy fakeloy?
apoc Δημοσ. 13 Ιουνίου 2002 Δημοσ. 13 Ιουνίου 2002 Μου αρεσει που τα λες σιγα σιγα...τα specification σου χεχεχε! Λοιπον Οκ για να γραφεις ΚΑΙ το Path του φακελου ακριβως πριν απο την γραμμη For προσθεσαι Write #iFileHand, Dir1.Path Αμα το dirListBox σου λεγεται διαφορετικα tote αντικατεστησαι το Dir1 με το ονομα που εχεις δωσει! Αν θυμαμαι καλα Dir1 πρεπει να το ειχες... Αυτα!
Roland Δημοσ. 14 Ιουνίου 2002 Μέλος Δημοσ. 14 Ιουνίου 2002 sth grammh "store in a string the substring , filename bgazei minhma lathoys
Roland Δημοσ. 14 Ιουνίου 2002 Μέλος Δημοσ. 14 Ιουνίου 2002 <img border="0" title="" alt="[smile]" src="images/icons/smile.gif" /> loipon apoc telika h aporia moy katelikse se dialogikh syzhthsh. Antexeis gia ena akomh erothma? tha to tolmiso afairei thn katalhksi alla afinei mia teleia kai exo prosthesei kai enan drivelistbox alla de doyleyei . ti prepei na kano Loipon apoc s' eyxaristo poli gia thn kathodigish alla an ginome koyrastikos thelo na moy to peis.
apoc Δημοσ. 15 Ιουνίου 2002 Δημοσ. 15 Ιουνίου 2002 χεχεχ ωραιος...οχι δεν κουραζεις.. λοιπον για πες τωρα τι εχεις στο νου σου εννοεις να φαινοντε στο αρχειο ως εξης? filename. filename2. κτλ κτλ To dirlistBox τι θες να κανει? Γινε πιο σαφης... <small>[ 14-06-2002, 18:29: Το μήνυμα επεξεργάστηκε από: apoc ]</small>
Roland Δημοσ. 15 Ιουνίου 2002 Μέλος Δημοσ. 15 Ιουνίου 2002 ok loipon edo exo ta files gia na ta deis th lista ton arxeion thn dhmioyrgei os eksis: D:\cd 80s\KITARO Ta_epikaira (streamload). Apogohteysh (streamload). To_ksexasmeno_phgadi (streamload). Mayrh_8alassa (streamload). Hlektrikos_Swkraths (streamload). O_gero_Ma8ios. O_aneprokopos (streamload). an ginete na mh bgazei thn telitsa sto telos kai epishs sto drivebox na mporo na allakso drive. thnks
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.