Android Question [Solved]How convert Java Code in be B4X Code

Theera · Saturday at 7:52 AM

I'm creating the library about ThaiWordBreak() from Java Code which is attached as the following codes below

B4X:

Public Sub  Thaiwordbreak(InputStr As String) As String()
    #If Java
        Return ThaiwordbreakJava(InputStr)
    #End If    
End Sub
        
#If Java
/** @author Nont Banditwong
** TODO To change the template for this generated type comment go to
** Window - Preferences - Java - Code Style - Code Templates
*/


import java.text.BreakIterator;
import java.util.Locale;
 
//import com.ibm.icu.text.BreakIterator;
//import com.ibm.icu.text.DictionaryBasedBreakIterator;
 
/**
 
Private static String[] ThaiWordBreakJava(String source) {
Locale thaiLocale = new Locale(“th”);
BreakIterator boundary = BreakIterator.getWordInstance(thaiLocale);
 
//BreakIterator boundary = DictionaryBasedBreakIterator.getWordInstance(thaiLocale);
 
boundary.setText(source);

StringBuffer strout = new StringBuffer();

int start = boundary.first();
for (int end = boundary.next(); end != BreakIterator.DONE; start = end, end = boundary.next()) {
 
strout.append(source.substring(start, end) + “-”);
}
 
//System.out.println(strout.toString());
return (strout.toString());
 
}

#End If

Johan Schoeman · Saturday at 8:44 AM

You need to Enable the JavaObject library.

Dim twb as JavaObject
twb.initializeContext
Dim mystring as string = "your Thai string"
'Use twb = Me if you have the code in a B4XPage
mystring = twb.runMethod("ThaiWordBreakJava", Array(mystring))
Log(mystring)

Johan Schoeman · Saturday at 8:44 AM

You need to Enable the JavaObject library.

Dim twb as JavaObject
twb.initializeContext
Dim mystring as string = "your Thai string"
'Use twb = Me if you have the code in a B4XPage
mystring = twb.runMethod("ThaiWordBreakJava", Array(mystring))
Log(mystring)

emexes · Saturday at 9:46 AM

Johan Schoeman said:
'Use twb = Me if you have the code in a B4XPage

This is probably crystal-clear to you, but... it'd help JavaObject newbies like me if there were separate B4XPages and not-B4XPages examples.

Theera · Saturday at 12:59 PM

If I understand to your advice, My code will be belows
Not B4XPages

B4X:

Public Sub  Thaiwordbreak(InputStr As String) As String()
   Dim twb as JavaObject
   twb.initializeContext  
  Dim mystring as string = InputStr
' Use twb = Me if you have the code in a B4XPage
mystring = twb.runMethod("ThaiWordBreakJava", Array(mystring))
'Log(mystring)
Return  mystring
End Sub

B4XPages

B4X:

Public Sub  Thaiwordbreak(InputStr As String) As String()
   Dim twb as JavaObject=Me'<--- Add  equal to Me
 ' twb.initializeContext  <---delete this line
  Dim mystring as string = InputStr
' Use twb = Me if you have the code in a B4XPage
mystring = twb.runMethod("ThaiWordBreakJava", Array(mystring))
'Log(mystring)
Return  mystring
End Sub

Alexander Stolte · Saturday at 1:24 PM

Theera said:
f I understand to your advice, My code will be belows

No, he mean this:

B4X:

Dim twb as JavaObject = Me

or i'm wrong?

Johan Schoeman · Saturday at 1:30 PM

Theera said:

If I understand to your advice, My code will be belows
Not B4XPages

B4X:

Public Sub  Thaiwordbreak(InputStr As String) As String()
   Dim twb as JavaObject
   twb.initializeContext
  Dim mystring as string = InputStr
' Use twb = Me if you have the code in a B4XPage
mystring = twb.runMethod("ThaiWordBreakJava", Array(mystring))
'Log(mystring)
Return  mystring
End Sub

B4XPages

B4X:

Public Sub  Thaiwordbreak(InputStr As String) As String()
   Dim twb as JavaObject
   twb.initializeContext
  Dim mystring as string = InputStr
' Use twb = Me if you have the code in a B4XPage
mystring = Me.runMethod("ThaiWordBreakJava", Array(mystring))
'Log(mystring)
Return  mystring
End Sub

Wrong for b4xPages. For b4xPages:
Dim twb as Javaobject
Dim mystring As String = "your Thai string"
twb = Me
mystring = twb.runMethod("ThaiWordBreakJava", Array(mystring))

There are 100's of samples on the forum. Just search for "b4a inline java code"

Johan Schoeman · Saturday at 1:32 PM

Alexander Stolte said:
No, he mean this:

B4X:

Dim twb as JavaObject = Me

or i'm wrong?

When using B4XPages - yes
When normal Activity it must be

Dim twb as JavaObject
twb.initializeContext

Theera · Saturday at 2:24 PM

I've edited at post#2, it is correct? I'm sorry I don't understand English well

Alexander Stolte · Saturday at 2:35 PM

Theera said:
Dim twb as JavaObject=Me twb.initializeContext

You dont need twb.initializeContext this would then overwrite the “Me”

B4X:

Public Sub  Thaiwordbreak(InputStr As String) As String()
   Dim twb as JavaObject=Me
   'twb.initializeContext 'Not with B4XPages
  Dim mystring as string = InputStr
' Use twb = Me if you have the code in a B4XPage
mystring = twb.runMethod("ThaiWordBreakJava", Array(mystring))
'Log(mystring)
Return  mystring
End Sub

Theera · Saturday at 2:43 PM

I've edited at post#2 again, it is correct

Alexander Stolte · Saturday at 2:47 PM

Theera said:
mystring = Me.runMethod("ThaiWordBreakJava", Array(mystring))

Not Me.runMethod -> twb.runMethod

B4X:

mystring = twb.runMethod("ThaiWordBreakJava", Array(mystring))

Theera · Saturday at 2:47 PM

Thank you all of both.(Thailand has everything, but it's difficult, people who know English.

)

PaulMeuris · 2025-01-26T06:14:33+0000

Using your java code i made a small test project.

And here's the B4A source code (B4XPages):

B4X:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Public btnclear As Button
    Public btnshow As Button
    Public etresult As EditText
    Public etsource As EditText
    Public jo As JavaObject
End Sub
Public Sub Initialize
    B4XPages.GetManager.LogEvents = True
    jo = Me
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    B4XPages.SetTitle(Me,"Thai word break")
    etsource.Text = ""
    etresult.Text = ""
End Sub
Private Sub btnshow_Click
    If etsource.Text = "" Then Return
    etresult.Text = jo.RunMethod("start",Array(etsource.text))
End Sub
Private Sub btnclear_Click
    etsource.Text = ""
    etresult.Text = ""
End Sub

#if java
import java.text.BreakIterator;
import java.util.Locale;
public String start(String source) {
    Locale thaiLocale = new Locale("th");
    BreakIterator boundary = BreakIterator.getWordInstance(thaiLocale);     
    boundary.setText(source);
    StringBuffer strout = new StringBuffer();
    int start = boundary.first();
    for (int end = boundary.next(); end != BreakIterator.DONE; start = end, end = boundary.next()) {
        strout.append(source.substring(start, end) + "-");
        //strout.append(source.substring(start, end) + "\r\n");       
    }
    return strout.toString();
}
#End If

In B4J you just have to replace the EditText views with TextArea views.
You can display the words in a list separated by a carriage return and line feed ("\r\n").

Android Question [Solved]How convert Java Code in be B4X Code

Theera

Well-Known Member

Attachments

Johan Schoeman

Johan Schoeman

Expert

emexes

Expert

Theera

Well-Known Member

Alexander Stolte

Expert

Johan Schoeman

Expert

Johan Schoeman

Expert

Theera

Well-Known Member

Alexander Stolte

Expert

Theera

Well-Known Member

Alexander Stolte

Expert

Theera

Well-Known Member

PaulMeuris

Well-Known Member

Similar Threads

Android Question [Solved]How convert Java Code in be B4X Code

Well-Known Member

Attachments

Expert

Expert

Well-Known Member

Expert

Expert

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency