Visual Basic 6.0

Απ: "πρόβλημα" με καταχωρήσεις σε αρχεία κειμένου

georgew — Fri, 30 Mar 2007 21:23:09 GMT

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

Απ: "πρόβλημα" με καταχωρήσεις σε αρχεία κειμένου

tasos — Mon, 26 Mar 2007 22:34:11 GMT

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

Απ: "πρόβλημα" με καταχωρήσεις σε αρχεία κειμένου

Dimitris Papadimitriou — Mon, 26 Mar 2007 21:17:06 GMT

Να προσθέσω κι εγώ με τη σειρά μου, αν δεν έγινε ήδη αντιληπτό, ότι και οι δυο παραπάνω λύσεις προτείνονται μόνο για μικρά αρχεία και σε περιπτώσεις που αυτό δεν θα γίνεται συχνά. Αν για παράδειγμα μιλάμε για ένα μηχανισμό logging όπου το αρχείο μπορεί να πάρει μεγάλες διαστάσεις, τότε ούτε γι αστείο δεν πρέπει να κάνεις κάτι τέτοιο!

Απ: "πρόβλημα" με καταχωρήσεις σε αρχεία κειμένου

George J. Capnias — Mon, 26 Mar 2007 03:30:00 GMT

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

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.

Απ: "πρόβλημα" με καταχωρήσεις σε αρχεία κειμένου

KelMan — Mon, 26 Mar 2007 02:54:39 GMT

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

"πρόβλημα" με καταχωρήσεις σε αρχεία κειμένου

georgew — Sun, 25 Mar 2007 22:00:38 GMT

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

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

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

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

γάτα

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

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

σκύλος

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