Jabaco Source |
|
1 2 3 4 5 |
Public Sub Command1_Click() msgbox(StrConv(Text1.Text, vbUpperCase)) ' works fine msgbox(StrConv(Text1.Text, vbLowerCase)) 'works fine msgbox(StrConv(Text1.Text, vbProperCase)) 'does not work ????????????? End Sub |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
private static String PCase(String String1) { return (String1); } private static String XCase(String String1) { return (String1); } public static String StrConv(String String1, VBStrConv ConvMet) { switch ( ConvMet.intValue() ) { case ( 1 ): { return (UCase(String1)); } // vbUpperCase case ( 2 ): { return (LCase(String1)); } // vbLowerCase case ( 3 ): { return (PCase(String1)); } // vbProperCase // NOT IMPLEMENTED case ( 4 ): { return (XCase(String1)); } // vbWide // NOT IMPLEMENTED case ( 8 ): { return (XCase(String1)); } // vbNarrow // NOT IMPLEMENTED case ( 16 ): { return (XCase(String1)); } // vbKatakana // NOT IMPLEMENTED case ( 32 ): { return (XCase(String1)); } // vbHiragana // NOT IMPLEMENTED case ( 64 ): { return (XCase(String1)); } // vbUnicode // NOT IMPLEMENTED case ( 128 ): { return (XCase(String1)); } // vbFromUnicode // NOT IMPLEMENTED } return (String1); } |
So, this feature needs a volunteer to implement it.
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
public static String PCase(String String1) { String String2 = ""; boolean lastWasLetter = false; for (int i=0; i<=String1.length()-1; i++) { Character ch = String1.charAt(i); if (Character.isLetterOrDigit(ch)) { if (Character.isDigit(ch)) { String2 = String2.concat(ch.toString()); } else if (lastWasLetter) { String2 = String2.concat(ch.toString().toLowerCase()); lastWasLetter = true; } else { String2 = String2.concat(ch.toString().toUpperCase()); lastWasLetter = true; } } else { String2 = String2.concat(ch.toString()); lastWasLetter = false; } } return (String2); } |
How can we get the updated framework for download?
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
VBA\Strings.java:205: incompatible types found : char required: java.lang.Character Character ch = String1.charAt(i); ^ VBA\Strings.java:206: cannot find symbol symbol : method isLetterOrDigit(java.lang.Character) location: class java.lang.Character if (Character.isLetterOrDigit(ch)) { ^ VBA\Strings.java:207: cannot find symbol symbol : method isDigit(java.lang.Character) location: class java.lang.Character if (Character.isDigit(ch)) { ^ 3 errors |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 4 |
Private Sub pCaseTest Debug.Print PCase("ein großer übler mit einem kleinen ärger $%&*+# ") Debug.Print StrConv("ein großer übler mit einem kleinen ärger $%&*+# ", vbProperCase) End Sub |