www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Spain also:Enrico Maria Giordano wrote:Italy:
850,1252
Code: Select all | Expand
? GetOEMCP(), GetACP()Thanks.
Code: Select all | Expand
857 ibm857 OEM Turkish; Turkish (DOS)Hi Mr. Rao,nageswaragunupudi wrote:Thanks.
1) Please once again give me 3 or 4 unique to Turkish characters both their OEM asc values and corresponding ANSI asc values.
2) Can you please check again? Is it 854 or 857 ?
Please see this webpage:
https://learn.microsoft.com/en-us/windo ... dentifiers
Here all Windows codepages botj OEM(DOS) and ANSI codepages are listed,
I could not find 854 there but I found:That is the reason I am checking with you once againCode: Select all | Expand
857 ibm857 OEM Turkish; Turkish (DOS)
Code: Select all | Expand
Character Ascii
1 Ğ 208
2 Ş 222
3 İ 221
4 ğ 240
5 ş 254
6 ı 253Code: Select all | Expand
//-> C:\FWH..\SAMPLES\TABISO.PRG - Tabela: ISO 8859-1 - 24/01/2020
//-> MODIFIED IN 24/10/2024 - Kapiabafwh@gmail.com
// http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=23861
#Include "FiveWin.ch"
STATIC oWnd
FUNCTION Main()
LOCAL oBar
DEFINE WINDOW oWnd TITLE "Tabela: ISO 8859-1 - Marcos Kieron - www.fivewin.com.br"
DEFINE BUTTONBAR oBar _3D OF oWnd
DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
ACTION( TABISO() ) GROUP
DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ;
ACTION( oWnd:End() ) TOOLTIP "Exit this app" GROUP
SET MESSAGE OF oWnd TO "Tabela: ISO 8859-1 - Marcos Kieron - www.fivewin.com.br" ;
NOINSET CLOCK DATE KEYBOARD
ACTIVATE WINDOW oWnd MAXIMIZED
RETURN NIL
FUNCTION TABISO()
LOCAL x, i, j
x := 10
i := 1
WHILE i <= 255
SYSREFRESH()
FOR j := 3 TO 42
@ j, x SAY RIGHT( STR( i ), 3 ) + SPACE(1) + CHR( i++ ) OF oWnd
IF i > 255
EXIT
ENDIF
NEXT j
x += 10
ENDDO
RETURN NIL
// FIM / END