VBscript + On Error GoTo...

[tsavnik]

Έχω γράψει ενα σκριπτακι σε VBScript για το NetStumbler (πρόγραμμα που σκανάρει το χώρο για να βρει ασύρματα δίκτυα).Σε αυτό το προγραμματακι δίνω εντολή στο Netstumbler να γράφει κάποια στοιχεία των δικτύων σε ένα text αρχείο. Μετά μέσα από ένα άλλο ανεξάρτητό πρόγραμμα ανοίγω αυτό το αρχείο για ανάγνωση.Καθώς τρέχουνε τα προγράματα κάποια στιγμή κολλάνε γιατί και τα δύο μαζί πάνε να ανοίξουν το αρχείο και να διαβάσουνε ή να γράψουνε ταυτόχρονα.Πώς μπορώ να χρησιμοποιήσω την εντολή On error GoTo στο σκρiπτάκι ώστε να αποφυγω τα κολληματα;Υπάρχει κάτι άλλο ανάλογο;

[mmpompodakis]

Καλησπέρα,

δεν ξέρω αν γνωρίζεις απο API συναρτήσεις, αλλά υπάρχει μια που σου "παρατηρεί" ένα φάκελο και όταν υπάρξει κάποια αλλαγή σε κάποιο απο τα αρχεία που περιέχονται σε αυτό ( αλλαγή = αποθήκευση δηλαδή κλειστό αρχείο ) σου επιστρέφει το όνομα του. Αυτό για να γλιτώσεις τους συνεχείς ελέγχους, που προφανώς ή με timer τους κάνεις, ή με κάποιο Loop.

Ένα καλό πρόγραμμα το οποίο έχει μέσα όλες τις API συνρτήσεις των windows είναι το ApiViewer και μπορείς να το βρείς εδώ : http://www.activevb.de/rubriken/apiviewer/index-apiviewereng.html

 

Τώρα για το θέμα του On Error goto $$$%@#$@#$

π.χ.

 

Public Function ReadFromFile(WhatFile as string) as Boolean

 

'Dim #!@#@ as @$#@$@#

On Error Goto ReadingFromFileError

 

'Do what you want to do

 

 

'Εδώ βάζεις τον κώδικα για τα λάθη. Πριν το End Function βάζεις τα:

 

Exit Function

 

ReadingFromFileError:

 

If Err.Number = ( ο αριθμός του σφάλματος που σου βγάζει όταν δεν μπορεί να έχει πρόσβαση στο αρχείο ) then ότι θέλεις. ή resume μέχρι να το προσπελάσει, αλλά αυτό μπορεί να σου κολλήσει την εφαρμογή ή exit function και την ξανακαλείς μετά.

 

End Function

 

 

 

Καλή επιτυχία!

[tsavnik]

Με λίγο ψάξιμο στο google βρήκα το πως να διαχειριζεσαι λάθη στην vbscript. Μπορεί να χρησιμοποιηθεί η On Error Resume Next στην αρχή του κώδικα που χρείαζεται να γίνει ελέγχος . Σε περίπτωση που εντοπίστει λάθος, αγνοείτε και το πρόγραμα πήγαινει στην επόμενη σειρα.Για όποιον ενδιαφερθεί μπορεί να επισκευτει τις παρακάτω σελίδες

 

http://www.freenetpages.co.uk/hp/alan.gauld/tutor2/tuttext.htm

http://blogs.msdn.com/ericlippert/archive/2004/08/19/217244.aspx

 

Ευχαριστώ για το χρόνο σου και τις πληροφορίες mmpompodakis. :grin:

[tsavnik]

Με λίγο ψάξιμο στο google βρήκα το πως να διαχειρηζεσαι λάθη στην vbscript. Χρησιμοποιεις την On Error Resume Next στην αρχή του κώδικα που θέλεις να ελέγξεις τα λάθη. Σε περίπτωση που εντοπίστει λάθος, αγνοείτε και το πρόγραμα πήγαινει στην επόμενη σειρα.Για όποιον ενδιαφερθεί μπορεί να επισκευτει τισ παρακάτω σελίδες

 

http://www.freenetpages.co.uk/hp/alan.gauld/tutor2/tuttext.htm

http://blogs.msdn.com/ericlippert/archive/2004/08/19/217244.aspx

 

Ευχαριστώ για το χρόνο σου και τις πληροφορίες mmpompodakis.