PowerBuilder Functions Convert ASCII To ANSI
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
//==================================================================== // Function: gf_ascii_to_ansi() //-------------------------------------------------------------------- // Description: Cover ASCII To ANSI //-------------------------------------------------------------------- // Arguments: // value string as_str1 //-------------------------------------------------------------------- // Returns: string //-------------------------------------------------------------------- // Usage: gf_ascii_to_ansi ( string as_str1 ) //-------------------------------------------------------------------- // Modify History: // //==================================================================== Int li_c, li_r Long ll_len_str1 String ls_str2 = "" ll_len_str1 = Len(as_str1) If ll_len_str1 > 0 Then For li_r = 1 To ll_len_str1 li_c = Asc(Mid(as_str1, li_r,1)) If li_c >= 128 And li_c <= 175 Then ls_str2 = ls_str2+Char(li_c + 64) ElseIf li_c >= 224 And li_c <= 239 Then ls_str2 = ls_str2+Char(li_c + 16) Else ls_str2 = ls_str2+Char(li_c) End If Next Return ls_str2 Else Return ls_str2 End If |
PowerBuilder Functions Convert ANSI To ASCII
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
//==================================================================== // Function: gf_ansi_to_ascii() //-------------------------------------------------------------------- // Description: Cover ANSI To ASCII //-------------------------------------------------------------------- // Arguments: // value string as_str1 //-------------------------------------------------------------------- // Returns: string //-------------------------------------------------------------------- // Usage: gf_ansi_to_ascii ( string as_str1 ) //-------------------------------------------------------------------- // Modify History: // //==================================================================== Int li_c, li_r Long ll_len_str1 String ls_str2 = "" ll_len_str1 = Len(as_str1) If ll_len_str1 > 0 Then For li_r = 1 To ll_len_str1 li_c = Asc(Mid(as_str1,li_r,1)) If li_c >= 192 And li_c <= 239 Then ls_str2 = ls_str2+Char(li_c - 64) ElseIf li_c >= 240 And li_c <= 255 Then ls_str2 = ls_str2+Char(li_c - 16) Else ls_str2 = ls_str2+Char(li_c) End If Next Return ls_str2 Else Return ls_str2 End If |
Good Luck!
Subscribe
Login
0 Comments
Oldest