Διάβασμα τιμής από αρχείο txt

[vassilism]

Καλησπέρα σας και συγχαρητήρια στο forum σας.

Θα ήθελα να κάνω μια ερώτηση.
Χρησιμοποιώ την access 2007 και θέλω να διαβάσω μια τιμή που υπάρχει σε ένα αρχείο txt.
Στο αρχείο txt θα υπάρχει μόνο μια τιμή η οποία θα είναι αριθμός.

Πως μπορεί να γίνει αυτό?

[Tasos]

Καλησπέρα Βασίλη και καλωσόρισες στην παρέα!

Καλησπέρα σας και συγχαρητήρια στο forum σας

Το φόρουμ ανήκει σε όλους εμάς που συμμετέχουμε ενεργά. Το ίδιο ισχύει φυσικά και για σένα.

Σχετικά με το ερώτημα σου μπορείς:

1) Να συνδέσεις το αρχείο κειμένου με πίνακα της Access με τη βοήθεια του οδηγού εισαγωγής εξωτερικών δεδομένων.

2) Να χρησιμοποιήσεις την παρακάτω συνάρτηση:

Option Explicit

Function NumberFromTextFile(ByVal TextFileName As String)
    With CreateObject("Scripting.FileSystemObject")
        With .OpenTextFile(TextFileName, 1, -1, -1)
            NumberFromTextFile = Trim(.ReadLine)
            .Close
        End With
    End With
End Function

'Παράδειγμα χρήσης:

Sub Read_Text_File()
    MsgBox NumberFromTextFile("c:\TextFile.txt")  ' Προσάρμοσε τη διαδρομή του αρχείου.
End Sub

Η συνάρτηση NumberFromTextFile() μπορεί φυσικά να κληθεί και μέσα από υπολογισμένο πεδίο Φόρμας, Έκθεσης ή Ερωτήματος.

Ελπίζω να σε καλύπτουν τα παραπάνω.
Αν θέλεις κάτι άλλο απλά γράψε στο φόρουμ.

Φιλικά

Τάσος

[vassilism]

Τάσο σ’ ευχαριστώ πάρα πολύ.
Η συνάρτηση που μου έδωσες με κάλυψε και με το παραπάνω.
Να υπογραμμίσω πως το txt αρχείο πρέπει να έχει αποθηκευτεί σε μορφή Unicode γιατί σε αντίθετη περίπτωση δεν μπορεί να διαβάσει την τιμή.

Επειδή δεν γνωρίζω καθόλου visual basic, έχω μια μικρή απορία.
Μπορούμε να δηλώσουμε το όνομα του αρχείου απευθείας στη συνάρτηση?
Θα με βόλευε περισσότερο να δηλώσω το όνομα και τη διαδρομή του αρχείου μια φορά στη συνάρτηση και όχι κάθε φορά που την καλώ.

[Tasos]

Καλημέρα σε όλους!

Βασίλη χρησιμοποίησε:

Function NumberFromTextFile()
    With CreateObject("Scripting.FileSystemObject")
        With .OpenTextFile("c:\TextFile1.txt", 1, -1) 'αν το αρχείο έχει κωδικοποίηση Unicode  _  
                                                                       τότε προσθέτουμε το όρισμα -1 στο τέλος.
            NumberFromTextFile = Trim(.ReadLine)
            .Close
        End With
    End With
End Function

Χρήση: =NumberFromTextFile()


Καλή συνέχεια!

Τάσος

[vassilism]

Τάσο καλησπέρα.
Η βοήθειά σου ήταν πολύτιμη. Λειτουργεί άψογα.
Νάσαι καλά, σ’ ευχαριστώ πολύ.

Με εκτίμηση
Βασίλης