package Ġcom . leon . app . watch list Ċ Ċ import Ġandroid . util . Log Ċ import Ġorg . json . JSONObject Ċ Ċ /** Ċ Ġ* ĠCreated Ġby ĠLe on Ġon Ġ 1 3 . 0 6 . 1 7 . Ċ Ġ*/ Ċ Ċ abstract Ġclass ĠMy Json Parser Ġ{ ĊĊĠĠĠ Ġfun ĠString . make Array (): ĠString Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn Ġ" [$ this ]" ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun ĠString . make Genre Array (): ĠString Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġposition Start : ĠInt Ġ= Ġthis . indexOf ("[ ") ĊĠĠĠĠĠĠĠ Ġval Ġposition End : ĠInt Ġ= Ġthis . indexOf (" ]") Ġ+ Ġ 1 ĊĠĠĠĠĠĠĠ Ġval Ġsubstring : ĠString Ġ= Ġthis . substring ( position Start , Ġposition End ) ĊĠĠĠĠĠĠĠ ĠLog . i (" My Json Parser ", Ġthis ) ĊĠĠĠĠĠĠĠ Ġreturn Ġsubstring ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun ĠString . insert Value String ( key : ĠString , Ġvalue : ĠString ): ĠString Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġposition : ĠInt Ġ= Ġthis . indexOf ("{ ") Ġ+ Ġ 1 ĊĠĠĠĠĠĠĠ Ġval Ġsubstring Before : ĠString Ġ= Ġthis . substring ( 0 , Ġposition ) ĊĠĠĠĠĠĠĠ Ġval Ġsubstring End : ĠString Ġ= Ġthis . substring ( position ) ĊĠĠĠĠĠĠĠ Ġreturn Ġ"$ substring Before \" $ key \":\" $ value \", $ substring End " ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun ĠString . parse Recommendation ( id : ĠInt ): ĠString Ġ{ ĊĠĠĠĠĠĠĠ Ġval ĠjsonObject Ġ= ĠJSONObject ( this ) ĊĠĠĠĠĠĠĠ Ġval Ġarray Ġ= ĠjsonObject . get JSONArray (" results ") ĊĊĠĠĠĠĠĠĠ Ġreturn Ġ"{ id :$ id , recommend ations :$ array Ġ}" ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun ĠString . parse Person Movies ( id : ĠInt ): ĠString Ġ{ ĊĠĠĠĠĠĠĠ Ġval ĠjsonObject Ġ= ĠJSONObject ( this ) ĊĠĠĠĠĠĠĠ Ġval Ġarray Ġ= ĠjsonObject . get JSONArray (" cast ") ĊĊĠĠĠĠĠĠĠ Ġreturn Ġ"{ id :$ id , movies :$ array Ġ}" ĊĠĠĠ Ġ} ĊĊĊĊĠĠĠ Ġfun ĠString . parse Genre Movies (): ĠString Ġ{ ĊĠĠĠĠĠĠĠ Ġval ĠjsonObject Ġ= ĠJSONObject ( this ) ĊĠĠĠĠĠĠĠ ĠjsonObject . put (" id ", Ġ 6 ) ĊĠĠĠĠĠĠĠ Ġreturn Ġ"$ jsonObject " ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun ĠString . insert Value Int ( key : ĠString , Ġvalue : ĠInt ): ĠString Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġposition : ĠInt Ġ= Ġthis . indexOf ("{ ") Ġ+ Ġ 1 ĊĠĠĠĠĠĠĠ Ġval Ġsubstring Before : ĠString Ġ= Ġthis . substring ( 0 , Ġposition ) ĊĠĠĠĠĠĠĠ Ġval Ġsubstring End : ĠString Ġ= Ġthis . substring ( position ) ĊĊĠĠĠĠĠĠĠ Ġreturn Ġ"$ substring Before \" $ key \": $ value ,$ substring End " ĊĠĠĠ Ġ} Ċ Ċ } ĊĊ