sedikit modif. tanpa harus mengubah registry
string ls_titlefontRegistryGet( & "HKEY_CURRENT_USER\Control
Panel\International", & "sDecimal", RegString!, ls_titlefont)
long start_pos=1string old_str, new_str, mystringmystring =
string(320000.200,"#,##0.00")old_str = ls_titlefontnew_str = "|" //GANTI koma
ke |// Find the first occurrence of old_str.start_pos = Pos(mystring, old_str,
start_pos)
// Only enter the loop if you find old_str.DO WHILE start_pos > 0 // Replace
old_str with new_str. mystring = Replace(mystring, start_pos, &
Len(old_str), new_str) // Find the next occurrence of old_str. start_pos
= Pos(mystring, old_str, & start_pos+Len(new_str))LOOPmessagebox("",
mystring)
Fajar Rahmadhani
YM : fjr_mail
Personal Email : [email protected]; [email protected]
Office Email : [email protected]
Office Website : fstudio.web.id (software murah berkualitas)
Facebook : Fajar Rahmadhani ([email protected])
Phone : +6281346333226
--- Pada Sen, 8/11/10, bobby sutanto <[email protected]> menulis:
Dari: bobby sutanto <[email protected]>
Judul: Re: Bls: [indopb] DecimalSeparator
Kepada: [email protected]
Tanggal: Senin, 8 November, 2010, 8:32 AM
Terima kasih atas jawabannya.
From: hotdin gurning <[email protected]>
To: [email protected]
Sent: Friday, November 5, 2010 5:57:10
Subject: Bls: [indopb] DecimalSeparator
harus pake registry, karna di pb saya liat ga ada fitur gituan(setau saya
siy) cuma ada trik sedikit untuk menghindari aplikasi windows
lainnya spt excel dan word ikut2an make format decimalnya.
1. bikin fungsi external dulu :
FUNCTION long SendMessageA ( long hwnd, uint Msg, long wparam, string lparam)
LIBRARY "USER32"
2. di event open application tempelin script ini:
//setting decimal jd '|' dan ribuan jadi ','
string ls_regKey = "HKEY_CURRENT_USER\Control Panel\International"
long HWND_BROADCAST = 65535
uint WM_SETTINGCHANGE = 26
RegistrySet(ls_regkey, "sDecimal", RegString!, "|")
RegistrySet(ls_regkey, "sThousand", RegString!, ",")
SendMessageA( HWND_BROADCAST,
WM_SETTINGCHANGE, 0, 'intl' )
3. Nah, skrg di event open window pertama (mis : w_utama) tempelin lagi yg ini:
//settingan windows menjadi : decimal jd '.' dan ribuan jadi ','
string ls_regKey = "HKEY_CURRENT_USER\Control Panel\International"
RegistrySet(ls_regkey, "sDecimal", RegString!, ".")
RegistrySet(ls_regkey, "sThousand", RegString!, ",")
//ga pake send message lagi, dgn bgtu jadi settingan aplikasi pb tetap.
//tetapi aplikasi windows spt excel ato word akan mengikuti format kedua ini
Dari: Bob <[email protected]>
Kepada:
[email protected]
Terkirim: Sen, 1 November, 2010 12:06:21
Judul: [indopb] DecimalSeparator
Teman2, ada yang tahu ngga cara ngubah decimal separator di powerbuilder.
seperti di delphi ada variabel decimalseparator, jika default nya decimal
separator ',' ( ex: 100,20 ) diubah menjadi decimal separator '|' akan menjadi
100|20
Ada yang tahu gimana cara ngerubah decimalseparator nya (hanya di aplikasi pb
saja) ?
*Note : tidak secara worldwide (ubah registry)
