Tuesday, May 22nd 2012, 12:13am UTC+2

You are not logged in.

  • Login
  • Register

Nisheeth

Beginner

Posts: 7

Location: India

Occupation: Researcher

1

Tuesday, December 28th 2010, 3:27pm

vbProperCase problem

Hi Friends

Look at the following code

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


Can anybody explain it to me why??????????

A1880

Intermediate

Posts: 500

Location: Hanover, Germany

Occupation: Software Engineer

2

Tuesday, December 28th 2010, 10:59pm

If you look this up in the Framework, you find in Strings.java:

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.

Greetings
A1880

theuserbl

Intermediate

Posts: 233

3

Wednesday, December 29th 2010, 1:59am

Quoted from "A1880"

So, this feature needs a volunteer to implement it.


Done.

Current implementation is

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); 
}


The last change was, that I made it to public, so that it is possible to use it direct as PCase(String) like it is possible with UCase and LCase.
If you think it would be better to call it only over StrConv, then I will change it back to private.

Greatings
theuserbl

A1880

Intermediate

Posts: 500

Location: Hanover, Germany

Occupation: Software Engineer

4

Wednesday, December 29th 2010, 11:08am

Having PCase() for direct calls is a good idea.
Thanks for the quick fix!

How can we get the updated framework for download?

Greetings

A1880

theuserbl

Intermediate

Posts: 233

5

Wednesday, December 29th 2010, 12:01pm

Quoted from "A1880"

How can we get the updated framework for download?


From
http://www.file-upload.net/download-3086647/Jabaco.jar.html

But it is only a minor change. Only the Systems-class was chenged.

And there is a little problem. Currently I have compiled Systems.java with the options "-source 1.5 -target 1.5", because with "-source 1.4 -target 1.4.2" there comes for Systems.java the following errors:

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


So sadly with my last code, it is no longer 1.4-compatible. :(
I will look at a solution.

theuserbl

Intermediate

Posts: 233

6

Wednesday, December 29th 2010, 12:05pm

Oh, and by the way:
Here is the String I used, to test PCase:

Jabaco Source

 
1

s = "Dieses ist ein kleiner Test. [dsf],{ff]sd{sf/fd[&feg§sdgbföfsd65ghfÜrgreh fhth 456fgfg"

theuserbl

Intermediate

Posts: 233

7

Wednesday, December 29th 2010, 12:42pm

Ok, here is now the actual version:
http://www.file-upload.net/download-3086723/Jabaco.jar.html

And it is again compiled with the Java 1.4 options.

Here the little changes, to make it work with 1.4:
http://code.google.com/p/jabacoframework/source/detail?r=80#

A1880

Intermediate

Posts: 500

Location: Hanover, Germany

Occupation: Software Engineer

8

Wednesday, December 29th 2010, 1:55pm

Great! That works quite well.

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


Thanks!

A1880

Similar threads

Rate this thread
WoltLab Burning Board