alazarou Δημοσ. 7 Απριλίου 2006 Share Δημοσ. 7 Απριλίου 2006 Να κάνω μια ερώτηση γιατί έχω κολλήσει… θέλω να κάνω update σε ένα Access table το οποίο περιέχει Ελληνικές λέξεις, θέλω να μετατρέψω τις λέξεις σε κεφαλαία (ucase) χωρίς τόνους. Αυτό το χωρίς τόνους με έχει δυσκολέψει λίγο…any help με κάποιο function που μου διαφεύγει. thanks. Συνδέστε για να σχολιάσετε Κοινοποίηση σε άλλες σελίδες άλλες επιλογές
koYkoY_koYkoY Δημοσ. 8 Απριλίου 2006 Share Δημοσ. 8 Απριλίου 2006 Θα μπορούσες να συμπεριλάβεις τον παρακάτω κώδικα ο οποίος νομίζω καλύπτει όλες τις πιθανές περιπτώσεις τονισμένων ελληνικών χαρακτήρων. > [color=navy]Option Compare Database Option Explicit [/color][color=navy]Private[/color] strMyString [color=navy]As String[/color] [color=navy]Private Function[/color] MakeGreekUpperCase(strMyString [color=navy]As String[/color]) strMyString = UCase(strMyString) [color=navy]Dim[/color] lngLength [color=navy]As Long [/color]lngLenght = Len(strMyString) [color=navy]Dim[/color] strCharacter [color=navy]As String[/color] [color=navy]Dim[/color] intStart [color=navy]As Integer[/color] [color=navy]For[/color] intStart = 1 [color=navy]To[/color] lngLenght strCharacter = Mid(strMyString, intStart, 1) [color=navy]Select Case[/color] Mid(strMyString, intStart, 1) [color=navy]Case Is[/color] = "Ά" strCharacter = "Α" [color=navy]Exit For [/color] [color=navy]Case Is[/color] = "Έ" strCharacter = "Ε" [color=navy]Exit For [/color] [color=navy]Case Is[/color] = "Ή" strCharacter = "Η" [color=navy]Exit For[/color] [color=navy]Case Is[/color] = "Ί" strCharacter = "Ι" [color=navy]Exit For [/color] [color=navy]Case Is[/color] = "Ό" strCharacter = "Ο" [color=navy]Exit For[/color] [color=navy]Case Is [/color]= "Ύ" strCharacter = "Υ" [color=navy]Exit For [/color] [color=navy]Case Is[/color] = "Ώ" [color=black]strCharacter [/color]= "Ω" [color=navy]Exit For [/color] [color=navy]Case Else [/color] strCharacter = "" [color=navy]End Select[/color] [color=navy]Next[/color] [color=navy]If[/color] strCharacter <> "" [color=navy]Then[/color] [color=navy]If[/color] intStart = 1 [color=navy]Then[/color] strMyString = strMyString [color=navy]Else[/color] strMyString = Left(strMyString, intStart - 1) & strCharacter & Right(strMyString, lngLenght - intStart) [color=navy]End If [/color][color=navy]Else[/color] strMyString = strMyString [color=navy]End If End Function [/color] Συνδέστε για να σχολιάσετε Κοινοποίηση σε άλλες σελίδες άλλες επιλογές
alazarou Δημοσ. 10 Απριλίου 2006 Μέλος Share Δημοσ. 10 Απριλίου 2006 Με μερικές αλλαγές έπαιξε … Thanks!! Συνδέστε για να σχολιάσετε Κοινοποίηση σε άλλες σελίδες άλλες επιλογές
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.