maaf lupa fungsinya pake return yak.. f_ubahstring(string as_text,string as_before,string as_after) returns string
Best Regards, Hotdin Gurning HP : 0813 8811 4416 Y!: hotdin_gurning www.gurningsoft.com ________________________________ Dari: hotdin gurning <[email protected]> Kepada: "[email protected]" <[email protected]> Dikirim: Sabtu, 25 Juni 2011 16:02 Judul: Bls: [indopb] Replace String beberapa karakter. f_ubahstring(string as_text,string as_before,string as_after) integer li_Posisi string ls_return li_Posisi = pos(as_text,as_before) do while li_Posisi > 0 ls_return += mid(as_text,1,li_Posisi - 1) + as_after as_text = mid(as_text, li_Posisi + Len(as_before)) li_Posisi = pos(as_text,as_before) loop ls_return += as_text return ls_text implementasi : f_ubahstring('powerbuilder','er','em') Nilai kembaliannya menjadi : powembuildem semoga membantu.. Best Regards, Hotdin Gurning HP : 0813 8811 4416 Y!: hotdin_gurning www.gurningsoft.com ________________________________ Dari: "[email protected]" <[email protected]> Kepada: [email protected] Dikirim: Sabtu, 25 Juni 2011 10:50 Judul: [indopb] Replace String beberapa karakter. Mohon bantuan empunya PB.. Gmn caranya replace beberapa jenis karakter dg karakter tertentu. Contohnya dalam RichTextBox ditemukan (';(,).!") Diganti dg space. Thanks atas infonya. Powered by Telkomsel BlackBerry® ________________________________ From: "Setiawan Santosa" <[email protected]> Sender: [email protected] Date: Sat, 25 Jun 2011 09:29:41 +0700 To: <[email protected]> ReplyTo: [email protected] Subject: Re: [indopb] jalankan aplikasi pb 11 exe di jaringan agar lebih cepat mungkin binary atau varbinary pak.. thx ----- Original Message ----- >From: [email protected] >To: [email protected] >Sent: Saturday, June 25, 2011 5:58 AM >Subject: Re: [indopb] jalankan aplikasi pb 11 exe di jaringan agar lebih cepat > > >Mas setiawan, >Kalau di sql server, untuk membuat tabel tsb, khusu yg type data blob di sql server type datanya apa ya? >Mohon pencerahannya :) > >Thx >Powered by Telkomsel BlackBerry® >________________________________ > >From: "Setiawan Santosa" <[email protected]> >Sender: [email protected] >Date: Fri, 24 Jun 2011 22:47:30 +0700 >To: <[email protected]> >ReplyTo: [email protected] >Subject: Re: [indopb] jalankan aplikasi pb 11 exe di jaringan agar lebih cepat > > > >boleh sy tambahkan sedikit. > >keuntungan update dengan blob adalah, client tidak perlu mapping drive ke >server, cukup dengan ip saja. >tehnik dasarnya untuk otomatis update file diclient adalah sbb : > >untuk server : >1. selain database utama, dibuat 1 database lagi untuk penampung khusus file >pbd terbaru, cukup 1 table saja >2. field table nya kira2 seperti ini : "string namafile1", "blob file1", >"string namafile2", "blob file2", "integer lastversion" ( tergantung brp >banyak pbd ) >3. jika ada update program, kita masukkan pbd terbaru ke table diatas. dengan >menggunakan script, rubah file pbd menjadi blob, agar bisa masuk ke database >4. naikkan nilai "lastversion" setiap ada update baru. > >untuk client >1. di open event, connect ke database pbd, cek nilai "lastversion" >2. jika "lastversion" server > "lastversion" client, maka ambil + convert >blob nya, dengan menggunakan script ( otomatis replace file di pc client ) >3. naikkan nilai "lastversion" di client ( agar sama dengan server ) > >contoh script di client sbb ( dengan db sql anywhere ) : > >////////////////////////BEGIN DOWNLOAD >transaction lt_app >lt_app = create transaction >// Profile blob2file >//....... >connect using lt_app ; >lb_ok = TRUE ; lb_in = FALSE >if lt_app.sqlcode = 0 then > li_ver = profileint("main.ini","main","ver",0) > select versi into :li_app from main using lt_app ; > IF li_ver <> li_app then /// versi beda, download it, versi sama, skip to main program > open(w_wait3) // beri window warning, karena prosesnya agak lama jika file besar... > yield() > declare app cursor for > select namafile from prg using lt_app ; > open app ; > fetch app into :ls_nm ; > DO while lt_app.sqlcode = 0 > yield() > lb_in = TRUE > setnull(ablb_blob) ; setnull(lblb_temp) > > selectblob object into :ablb_blob from prg where namafile = :ls_nm using lt_app ; > f_err("") > > ll_FileLength = Len(ablb_blob) > > IF ll_FileLength > 32765 THEN > IF Mod(ll_FileLength, 32765) = 0 THEN > li_Loops = ll_FileLength / 32765 > ELSE > li_Loops = (ll_FileLength / 32765) + 1 > END IF > ELSE > li_Loops = 1 > END IF > > li_FileNum = FileOpen(ls_nm, StreamMode!, Write!, LockReadWrite!, Replace!) > if li_filenum = -1 then > /// some error > lb_ok = FALSE > end if > FOR li_Index = 1 TO li_Loops > lblb_Temp = BlobMid(ablb_blob, ((32765 * li_Index) - 32765 + 1), 32765) > li_err = FileWrite(li_FileNum, lblb_Temp) > if li_err = -1 then > //// some error > lb_ok = FALSE > end if > NEXT > > li_err = FileClose(li_FileNum) > if li_err = -1 then > lb_ok = FALSE > end if > fetch app into :ls_nm ; > LOOP > close app ; > > if lb_ok and lb_in then > SetProfileString("MAIN.INI","main", "ver", string(li_app) ) > end if > > close(w_wait3) > > END IF > >END IF >disconnect using lt_app ; >destroy lt_app ; >//////////////////////////////END DOWNLOAD > >untuk script di server, kira2 prosesnya adalah kebalikan dari script diatas > >rgrds >setiawan > > > ----- Original Message ----- >>From: [email protected] >>To: [email protected] >>Sent: Friday, June 24, 2011 11:34 AM >>Subject: Re: [indopb] jalankan aplikasi pb 11 exe di jaringan agar lebih >>cepat >> >> >>Cara update client2 lwt database(blog) gimana caranya? >>Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung >>Teruuusss...! >>________________________________ >> >>From: Hermawan Dephe <[email protected]> >>Sender: [email protected] >>Date: Fri, 24 Jun 2011 11:27:49 +0700 >>To: <[email protected]> >>ReplyTo: [email protected] >>Subject: Re: [indopb] jalankan aplikasi pb 11 exe di jaringan agar lebih >>cepat >> >> >>pecah2 PBD jadi lebih kecil aja pak.. agar bisa lebih ngirit bandwith.. >>tp kalo bagusnya sih nurut saya mending dicopy kemasing2 client2..untuk updatenya bisa lewat database (blob) nantinya.. >>kalo pake PB 9 ke atas kayaknya dah aman jg deh dari PBKilller.. jadi gak perlu takut dibaca scriptnya. >> >> >>NASRULLAH ARUL wrote: >> >>>Master2 sy mau tanya untuk pb 11.5 jika pbd nya di jalankan lewat jaringan, >>>di client lemot banget yah, lama sekali untuk buka menu, ada solusi agar >>>dapat menjalankan lebih cepat...? dengan catatan tidak di kopikan ke local2 >>>masing client.. terima kasih. >>
