B4J Library the First b4x ORM framework

Discussion in 'B4J Libraries & Classes' started by icefairy333, Jan 22, 2017.

  1. icefairy333

    icefairy333 Active Member Licensed User

    :Dtoday I have write some code to update the my toolkit (which modify from:https://www.b4x.com/android/forum/threads/server-online-json-tree-example.39048/)

    json string:
    generate by toolkit:
    Code:
    Type typRoot(image As String,comment_xj As String,city As String,kc_title As String,comment_addtime As String,usertel As String,comment_id As String,nianji As String,comment_huifu_id As String,kc_id As String,children As List,comment_type As String,js_id As String,comment_content As String,riqi As String,id As String,jsname As String,username As String)

    Sub parseStr2typRoot(str As StringAs typRoot
        
    Dim parser As JSONParser
        parser.Initialize(str)
        
    Return map2typRoot(parser.NextObject)
    End Sub
    Sub map2typRoot(m As MapAs typRoot
        
    Dim ret As typRoot
        ret.Initialize
        ret.image=m.GetDefault(
    "image","")
        ret.comment_xj=m.GetDefault(
    "comment_xj","")
        ret.city=m.GetDefault(
    "city","")
        ret.kc_title=m.GetDefault(
    "kc_title","")
        ret.comment_addtime=m.GetDefault(
    "comment_addtime","")
        ret.usertel=m.GetDefault(
    "usertel","")
        ret.comment_id=m.GetDefault(
    "comment_id","")
        ret.nianji=m.GetDefault(
    "nianji","")
        ret.comment_huifu_id=m.GetDefault(
    "comment_huifu_id","")
        ret.kc_id=m.GetDefault(
    "kc_id","")
        ret.children=m.Get(
    "children")
        ret.comment_type=m.GetDefault(
    "comment_type","")
        ret.js_id=m.GetDefault(
    "js_id","")
        ret.comment_content=m.GetDefault(
    "comment_content","")
        ret.riqi=m.GetDefault(
    "riqi","")
        ret.id=m.GetDefault(
    "id","")
        ret.jsname=m.GetDefault(
    "jsname","")
        ret.username=m.GetDefault(
    "username","")
        
    Return ret
    End Sub
    usage:
    Code:
    Dim js As String=$"{"image":"https:\/\/app.test.com\/Uploads\/touxiang\/2016-12-20\/5858e291028f7.jpg","jsname":"\u65e0\u540d\u6c0f","kc_title":"\u5927\u59d0\u59d0\u5965\u65701\u5bf91","id":"34","kc_id":"57","js_id":"1095","comment_huifu_id":"15","comment_content":"\u5475\u5475 \u6559\u7684\u4e0d\u9519\u5462 \u90fd\u542c\u61c2\u4e86","comment_id":"0","comment_type":"1","comment_xj":"0","comment_addtime":"2016-10-25 11:21:05","username":"\u51cc","usertel":"186********","city":"\u4e4c\u9c81\u6728\u9f50","nianji":"\u4e94\u5e74\u7ea7","riqi":" -","children":[{"id":"36","kc_id":"57","comment_huifu_id":"0","comment_content":"\u4e00\u8d77\u52a0\u6cb9\uff01","comment_id":"34","comment_addtime":"2016-10-25 15:14:07"}]}"$
    Dim res As typRoot=parseStr2typRoot(js)
    Log(res.city)
    note:
    1.the code dependson json library;
    2.the toolkit dependson json+jserver library
    3.open toolkit by b4j and run it(or compile it then run with command "java -jar xxx.jar"),then view http://127.0.0.1:88/;
    4.using the code with kvs2 will be better

    and you can find more from my github:https://github.com/icefairy/b4xlibs_tk
    and ~ can you give me a star on this project?:p
    :)
     

    Attached Files:

    Last edited: Feb 8, 2017
    Widget likes this.
  2. icefairy333

    icefairy333 Active Member Licensed User

    Don Oso and inakigarm like this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice