Πώς να αφαιρέσει εμφάσεις σε ένα String VB6

Υπάρχουν αρκετοί διαφορετικοί χαρακτήρες που αντιπροσωπεύουν προφορά . Οι τάφο , περισπωμένη και οξεία σήματα προφορά που αντιπροσωπεύεται από έναν ειδικό χαρακτήρα πάνω από το γράμμα της λέξης . Αν και δεν υπάρχουν πολλές αγγλικές λέξεις με τόνους , υπάρχουν πολλά στα γαλλικά και τα ισπανικά . Κατά την παραλαβή ή αποστολή γαλλικά ή τα ισπανικά δεδομένα από τη Visual Basic είτε σε μια βάση δεδομένων ή άλλη εφαρμογή γραμμένη σε άλλη γλώσσα προγραμματισμού , ενδέχεται να χρειαστεί να αφαιρέσετε την προφορά πριν από την άλλη εφαρμογή μπορεί να το επεξεργαστεί . Οδηγίες
Η

1 Δημιουργήστε ένα νέο Standard EXE πρόγραμμα της Visual Basic . Προσθέστε την ικανότητα να διαβάζουν και να επεξεργάζονται δεδομένα από ένα εξωτερικό αρχείο επιλέγοντας " Project" και "Αναφορές ". Επιλέξτε το πλαίσιο δίπλα στο " Microsoft Scripting Runtime " και κάντε κλικ στο " OK " για να αποθηκεύσετε . Αυτό δίνει το πρόγραμμα να αποκτήσει πρόσβαση στο API των Windows για τη διαχείριση αρχείων 2

αναγνωρίσει δύο μεταβλητές : . Ένα ως " FileSystemObject » και το άλλο ως « TextStream " :

Dim oFSO όπως η Νέα Scripting.FileSystemObject

Δημ. oMyFile ως Scripting.TextStream

στη συνέχεια, ανοίξτε το αρχείο για την ανάγνωση στην TextStream .

Set oMyFile = oFSO.OpenTextFile ( Όνομα αρχείου , ForReading )

Επίσης δηλώσετε μια μεταβλητή για να κρατήσει κάθε γραμμή του TextStream ως "Dim sLineRead ως String . "
εικόνων 3

Διαδικασία η γραμμή του αρχείου κειμένου από τη γραμμή μέσα σε ένα βρόχο γραπτή ως «Ενώ δεν oMyFile.AtEndOfStream . " Ρυθμίστε το " sLineRead " ίση με μία γραμμή κειμένου από το TextStream :

sLineRead = oMyFile.ReadLine

Αν υπάρχουν πινελιές που περιέχονται στο " sLineRead " μπορείτε να τα αντικαταστήσετε με άλλη τιμή χρήση της VB " αντικαταστήσει " μέθοδο .
Η 4

Προσδιορίστε το χαρακτήρα προφορά να αφαιρεθεί . Για παράδειγμα, το κείμενο περιέχει «Ε» μπορεί να αντικατασταθεί με το " e" πριν από την εμφάνιση ή την εισαγωγή των δεδομένων σε μια βάση δεδομένων :

sLineRead = Αντικατάσταση ( sLineRead , "Ε" , " e" )

Αυτή η γραμμή κώδικα αντικαθιστά όλες τις εμφανίσεις του "e" με το " e" στο πλαίσιο της γραμμής του κειμένου διαβάζεται σε « sLineRead " χωρίς να αλλάξει κάποια από τα αρχικά δεδομένα .

Η