Για παράδειγμα όπως το σημειωματάριο τον windows κάτι τέτοιο θα φτιάξουμε και εμείς σήμερα, φυσικά δεν είναι υποχρεωτικό να το κάνετε όπως το κάνω εγώ διότι το Openfile Dialog και το Savefile Dialog μπορούν να χρησιμοποιηθούν με χιλιάδες τρόπους.. απλά να έχετε ιδέες!
Για αυτό το project χρειαζόμαστε.
2X Button's (button1,button2)
Openfiledialog
Savefiledialog
Textbox
Label
Τα συντονίζουμε κάπως έτσι. Παρεπιπτόντως το label1 δεν φαίνεται διότι δεν έχει τίποτα γραμμένο στο text, το label βρίσκετε ακριβώς διπλα από το button2(save file).
To textbox1 πρέπει να είναι "multiply" ώστε να έχουμε πολλές σιρες και όχι μονο μια.. το button1 το ονόμασα "open file" και το button2 "save file" ακριβώς από διπλα είναι το label1 με κενό text.
Με διπλό click στο button1 και στο button2 δίνουμε τις εξής εντολές.
SaveFileDialog1.ShowDialog() = Εμφάνισε τον διάλογο αποθήκευσης αρχείου.
OpenFileDialog1.ShowDialog() = Εμφάνισε τον διάλογο φόρτωσης αρχείου.
Δηλαδή δίνουμε στο text του label1 την διαδρομή του αρχείου που επέλεξε το openfiledialog.
OpenFiledialog1.FileName = Η Διαδρομή του αρχείου (String)
Με αποτέλεσμα αυτό:
Για να μεταφέρουμε το κείμενο του αρχείου που επιλέξαμε στο textbox πρέπει να δώσουμε τον εξής κώδικα...
Dim objReader As New System.IO.StreamReader('diadromi tou arxiou, eipame prin pos tin vriskoume')
to antikimeno pou tha exei to text.text = objReader.ReadToEnd
objReader.Close()
Και το τελευταίο βήμα είναι πως να αποθηκεύσουμε το αρχείο.
Προσθέτουμε στο button2 το έξεις.... (''My.Computer.......")
SaveFileDialog1.FileName = Το αρχείο που επιλέξαμε προς αποθήκευση(η φτιάξαμε).
Textbox1.text = Τι να αποθήκευση στο αρχείο.
My.Computer.FileSystem.WriteAllText(diadromi arxiou.FileName, ti na apothikefti.Text, False)
Κάτι τελευταίο, ώστε το αρχείο να αποθηκεύεται ως txt. πρέπει να βάλουμε filters στο savefiledialog.
Κάνουμε το εξής πάμε στα properties του savefiledialog, κατεβαίνουμε μέρχι να βρούμε το filter
Βάζουμε: Text files (*.txt)|*.txt|All files (*.*)|*.* και είμαστε έτυμη.