Γεια σας παιδιά έχω ένα πρόβλημα με Visual Basic και ζητώ έχα χέρι βοηθείας...

Δημιουργώ ένα αρχείο txt με την Visual Basic και αποθηκεύω κάποιες καταχωρήσεις. Την επόμενη φορά που το ανοίγω και αποθηκεύω θέλω στις καταχωρήσεις να μην είναι η καινούργια κάτω από την παλιά, αλλά το αντίθετο. Για παράδειγμα:

Η πρώτη καταχώρηση είναι: σκύλος

Κάνω μετά άλλη μια καταχώρηση και το αρχείο είναι έτσι: σκύλος

                                                                                               γάτα

Πώς μπορώ να το κάνω ώστε οι νέες καταχωρήσεις να είναι πάνω από τις παλιές???

Δηλαδή να είναι:  γάτα

                            σκύλος

Όλα αυτά με Visual Basic 6.0.

Δεν θα γράφεις απ'ευθείας πάνω στο txt αρχείο γιατί μπορείς να κάνεις μόνο append. Ένα απλό workaround για να λύσεις το πρόβλημά σου είναι να διαβάζεις τα περιεχόμενα του txt αρχείου και να βάζεις κάθε γραμμή σε ένα array. Κατόπιν, να σβήνεις το παλιό txt αρχείο και ύστερα σε ένα νέο αρχείο να γράφεις πρώτη-πρώτη τη νέα εγγραφή και ύστερα όλες τις υπόλοιπες από το array.

Μια άλλη πρόταση:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 

Private Sub updateTextStream(filename As String, textData As String)

Dim fileSystemObject As Scripting.fileSystemObject
Dim fileExists As Boolean
Dim existingTextStream As Scripting.TextStream
Dim newTextStream As Scripting.TextStream

    Set fileSystemObject = New Scripting.fileSystemObject
    fileExists = fileSystemObject.fileExists(filename)
    
    If fileExists Then
        Call fileSystemObject.MoveFile(filename, filename & ".old")
        Set existingTextStream = fileSystemObject.OpenTextFile(filename & ".old", ForWriting, True, TristateFalse)
    End If
    
    Set newTextStream = fileSystemObject.CreateTextFile(filename, True, False)
    Call newTextStream.WriteLine(textData)
    
    If fileExists Then
        Call newTextStream.Write(existingTextStream.ReadAll)
        Call existingTextStream.Close
        Set existingTextStream = Nothing
    End If
    
    newTextStream.Close
    Set newTextStream = Nothing
    Set fileSystemObject = Nothing

End Sub

George J.

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias

Μια ιδέα που δεν ξέρω κατά πόσο θα σε βολέψει, αλλά ίσως να σου δώσει λύση αν το αρχείο σου είναι μεγάλο. Μπορείς να γράφεις τις καταχωρήσεις σου στο αρχείο που θέλεις με append και έτσι θα έχεις πρώτα τις παλιές και μετά τις καινούργιες. Έτσι γλιτώνεις τον επιπλέον φόρτο για να διορθώνεις κάθε φορά το αρχείο. Τώρα για να μπορείς να δεις σωστά το αρχείο σου, μπορείς να κάνεις sort. Για να το πετύχεις αυτό θα πρέπει στην αρχή της κάθε καταχώρησης να βάζεις έναν αριθμό, π.χ. 1 σκύλος | 2 γάτα | 3 καναρίνι. Χρησιμοποιώντας την εντολή sort των Windows μπορείς να πετύχεις την αναστροφή του αρχείου ζητώντας να σου κάνει αντίστροφη αριθμητική ταξινόμηση.
Το πρόβλημα που αναφέρεις συναντάται συχνά όταν υπάρχουν log αρχεία και παραδοσιακά αυτά τα αρχεία για να τα χειριστούν οι administrators κάνουν χρήση της εντολής αυτής, η οποία υπάρχει σε Windows και Unix. Αυτή η ιδέα θα σου φανεί χρήσιμη αν γράφεις συνέχεια στο αρχείο και δεν κάνεις πολλές αναγνώσεις και εγγραφές ταυτόχρονα. Πάντως, μπορείς να καλέσεις την sort μέσα από VB κώδικα, οπότε αυτή η κομπίνα δεν θα φαίνεται στον χρήστη.

Ευχαρστώ παιδιά κάτι έκανα.