|
VFP ·R¥ÎªÌªÀ°Ï ¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
andybigbos
µù¥U®É¶¡: 2004-12-01 ¤å³¹: 64 ¨Ó¦Û: ¥x¤¤
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤Q¤G¤ë 10, 2018 3:45 pm ¤å³¹¥DÃD: ¸÷¨D VFP6 BIG5ÂàUTF-8 ¥Îªº¨ç¼Æ DLL ©Î¨ä¥¦¤èªk |
|
|
¤p§Ìn§Ë QRCODE ¦ý¬O VFP6 ¬° BIG5½X,QRCODE n¨D utf-8 ,¦p¥i±Nbig5 Âন utf-8 |
|
¦^³»ºÝ |
|
|
ckp6250
µù¥U®É¶¡: 2004-07-30 ¤å³¹: 1645
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤Q¤G¤ë 10, 2018 4:57 pm ¤å³¹¥DÃD: |
|
|
±zn¾Ç·|·j´M¥»¯¸¡A¤W±¦³±z·Qnªº¡C |
|
¦^³»ºÝ |
|
|
spfrk
µù¥U®É¶¡: 2004-11-08 ¤å³¹: 161
²Ä 3 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤Q¤G¤ë 11, 2018 10:40 am ¤å³¹¥DÃD: |
|
|
repl FMasNam with STRCONV(vdata,11) && UTF8 TO BIG5 11, BIG5 TO UTF8 9 |
|
¦^³»ºÝ |
|
|
garfield Site Admin
µù¥U®É¶¡: 2003-01-30 ¤å³¹: 2158
²Ä 4 ¼Ó
|
|
¦^³»ºÝ |
|
|
garfield Site Admin
µù¥U®É¶¡: 2003-01-30 ¤å³¹: 2158
²Ä 5 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤Q¤G¤ë 11, 2018 11:35 am ¤å³¹¥DÃD: |
|
|
*UTF-8ªºCodePage = 65001
mutf8 = udf_CPConverter(950,65001, '¤¤¤åÂনutf-8, ÁÙ¬O¦³°ÝÃD,À³¸Ó¬Oªø«×¥X¤FÂI°ÝÃD' )
*¦bvfp9°õ¦æ³o¤@¬q¨Ódebug
? strconv( mutf8 , 11 )
FUNCTION udf_CPConverter()
Lparameters nCurrentCodePage, nNewCodePage, cString
Declare Integer IsValidCodePage in WIN32API ;
integer nCodePage
Declare Integer MultiByteToWideChar in WIN32API ;
integer CodePage,;
integer Flags,;
string MultyByteStr,;
integer MultiByteStrLen,;
string @ WideCharStr,;
integer WideCharStrLen
Declare Integer WideCharToMultiByte in WIN32API ;
integer CodePage,;
integer Flags,;
string MultyByteStr,;
integer MultiByteStrLen,;
string @ WideCharStr,;
integer WideCharStrLen,;
integer ,;
integer
If IsValidCodePage(nCurrentCodePage) = 0
ERROR 1914
RETURN ""
EndIf
If IsValidCodePage(nNewCodePage) = 0
ERROR 1914
RETURN ""
EndIf
Local WideCharBuf, MultiByteBuf
WideCharBuf = REPLICATE(CHR(0),LEN(cString)*2)
MultiByteBuf = REPLICATE(CHR(0),LEN(cString))
MultiByteToWideChar;
(nCurrentCodePage;
,0;
,cString;
,Len(cString);
,@WideCharBuf;
,Len(WideCharBuf))
WideCharToMultiByte;
(nNewCodePage;
,0;
,WideCharBuf;
,Len(WideCharBuf);
,@MultiByteBuf;
,Len(MultiByteBuf);
,0,0)
Return MultiByteBuf
*!* Code Page Identifiers for ISO-8859 are:
*!* 28591 ISO 8859-1 Latin I
*!* 28592 ISO 8859-2 Central Europe
*!* 28593 ISO 8859-3 Latin 3
*!* 28594 ISO 8859-4 Baltic
*!* 28595 ISO 8859-5 Cyrillic
*!* 28596 ISO 8859-6 Arabic
*!* 28597 ISO 8859-7 Greek
*!* 28598 ISO 8859-8 Hebrew
*!* 28599 ISO 8859-9 Latin 5
*!* 28605 ISO 8859-15 Latin 9 _________________ §Q¥Î>>·j´M<<ªº¥\¯à·|¤ñ°ÝªºÁÙn§Ö±o¨ìµª®×. |
|
¦^³»ºÝ |
|
|
yctsai
µù¥U®É¶¡: 2003-04-11 ¤å³¹: 179
²Ä 6 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤Q¤G¤ë 11, 2018 8:27 pm ¤å³¹¥DÃD: |
|
|
©I¥s°O¨Æ¥»,¦Û°Ê¦s¦¨UTF8®æ¦¡§Y¥i
³o¼Ë²³æ ³t«×§Ö,¨Ï¥ÎªÌ¤]¨S·Pı,¥Béw |
|
¦^³»ºÝ |
|
|
marvin
µù¥U®É¶¡: 2004-06-01 ¤å³¹: 321
²Ä 7 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤Q¤G¤ë 11, 2018 11:50 pm ¤å³¹¥DÃD: |
|
|
> ©I¥s°O¨Æ¥»,¦Û°Ê¦s¦¨UTF8®æ¦¡§Y¥i
³oÓ¯u¨S·Q¹L, ¦ý¾Þ§@ªºµ{¦¡¥i¥H´£¥Ü¤@¤U¶Ü ? |
|
¦^³»ºÝ |
|
|
garfield Site Admin
µù¥U®É¶¡: 2003-01-30 ¤å³¹: 2158
²Ä 8 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤G¤ë 12, 2018 4:41 pm ¤å³¹¥DÃD: |
|
|
DECLARE Sleep IN "Kernel32" LONG dwMilliseconds
DECLARE LONG FindWindowEx IN User32 LONG hWndParent, LONG hWndChild, STRING cClassName, STRING cCaptionText
DECLARE LONG FindWindow IN User32 STRING cClassName, STRING cCaptionText
DECLARE LONG SendMessage IN User32 LONG, LONG, LONG, STRING
#DEFINE WM_SETTEXT 12
#DEFINE WM_PASTE 0x302
cTextFile = "d:\downloads\test.txt"
oWS = CreateObject( "WScript.Shell" )
cApp = [notepad "] + cTextFile + ["]
oApp = oWS.Exec( cApp )
Sleep(3000)
hWnd_Notepad = FindWindow( "Notepad", JUSTFNAME(cTextFile)+" - °O¨Æ¥»" )
hWnd_Edit = FindWindowEx( hWnd_Notepad, 0, "Edit", "" )
? "hWnd_Notepad", hWnd_Notepad
? "hwnd_Edit", hwnd_Edit
*WAIT
strWindowText = cTextFile+" ªºÀÉ®×¥²»Ýn¨Æ¥ý¦s¦¨ utf-8½s½X, ³o¸Ì¶K¨ìnotepadªº¤å¦r·|¦Û°ÊÂনutf-8 at "+time()
= SendMessage( hWnd_Edit, WM_SETTEXT, len(strWindowText), strWindowText )
*!* = SendMessage( hWnd_Edit, WM_PASTE, 0, Null )
*WAIT "±µ¤U¨Ón¦sÀɪº¤è¦¡¬O«ö¤U Ctrl + s "
Declare keybd_event IN Win32API SHORT bVk, SHORT bScan, INTEGER dwFlags, INTEGER deExtraInfo
#define VK_CONTROL 0xA2
*¥ª¤èControl
#define KEYEVENTF_KEYDOWN 0x01
#define KEYEVENTF_KEYUP 0x02
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYDOWN,0)
keybd_event(ASC("S"),0,KEYEVENTF_KEYDOWN,0)
INKEY(0.1)
keybd_event(ASC("S"),0,KEYEVENTF_KEYUP,0)
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0)
SENDMessage(hWnd_Notepad,0X10,1,"Ãö±¼notepad")
? "ÃÒ©úÀɮפ¤¤å¤wÂন utf-8, ±NŪ¥Xªº¤å¦r¥Ñ utf-8 Âন big5"
? STRCONV(FILETOSTR( cTextFile ),11) _________________ §Q¥Î>>·j´M<<ªº¥\¯à·|¤ñ°ÝªºÁÙn§Ö±o¨ìµª®×.
garfield ¦b ¬P´Á¥| ¤Q¤G¤ë 13, 2018 7:51 pm §@¤F²Ä 2 ¦¸×§ï |
|
¦^³»ºÝ |
|
|
yctsai
µù¥U®É¶¡: 2003-04-11 ¤å³¹: 179
²Ä 9 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤G¤ë 12, 2018 7:21 pm ¤å³¹¥DÃD: |
|
|
1.§Ú¿ù¤F,§Ú©Ó»{¦Ñ¤F
©I¥s°O¨Æ¥»,¦Û°Ê¦s¦¨UTF8®æ¦¡§Y¥i,¬O§Ú¬ã¨s¹Lªº¤èªk, ³Ì«án¦Û°Ê¦s¦¨UTF8®æ¦¡<---³oӧ䤣¨ì«ü¥O
2.§Ú¬O¥ÎconvertZ
select ÀÉ®×
copy to ¬YÀÉ type sdf
sss='c:\convertz.exe /i:big5 /o:utf8 '+¬YÀÉ
run /n &sss
³o¼Ë²³æ ³t«×§Ö,¨Ï¥ÎªÌ¤]¨S·Pı,¥Béw |
|
¦^³»ºÝ |
|
|
nelsonchuang
µù¥U®É¶¡: 2003-09-04 ¤å³¹: 563 ¨Ó¦Û: »OÆW
²Ä 10 ¼Ó
|
|
¦^³»ºÝ |
|
|
garfield Site Admin
µù¥U®É¶¡: 2003-01-30 ¤å³¹: 2158
²Ä 11 ¼Ó
|
µoªí©ó: ¬P´Á¥| ¤Q¤G¤ë 13, 2018 7:52 pm ¤å³¹¥DÃD: |
|
|
è¤~¸É»ô8¼ÓÂà½Xutf-8ªº¤èªk, ¬Ý¦ü¥i¦æ _________________ §Q¥Î>>·j´M<<ªº¥\¯à·|¤ñ°ÝªºÁÙn§Ö±o¨ìµª®×. |
|
¦^³»ºÝ |
|
|
syntech
µù¥U®É¶¡: 2003-05-16 ¤å³¹: 4225 ¨Ó¦Û: Taipei,Taiwan
²Ä 12 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤Q¤G¤ë 14, 2018 3:37 pm ¤å³¹¥DÃD: |
|
|
4F &5F ªº¤èªk§Ú¦b§@¹q¤lµo²¼®É¸Õ¹L¤F(¦L¶H¤¤¤]¬O¦b¥»¯¸§äªº)
¦r¦êªø«×°ÝÃD«á¨Óµ{¦¡¤W·|«Ü³Â·Ð,
©Ò¥H³Ì«áÁÙ¬O¥Î VFP9 §@©Ò¦³·|¥Î¨ìUTF8Âà´«ªºµ{¦¡ _________________ ¦pªG¤½¥q¦³¤U¦C§xÂZ:
1. §ä¤£¨ì«K©y,§Ö³t,²©öªº ¥Í²£±Æµ{³nÅé
2. ¤£ª¾¹D¦p¦ó§Ö³t±Æ©w ±ÄÁÊp¹º
3. ¦¨¥»§ì¤£·Ç,¦Û¤vºâ¤ñ³nÅéºâ¦³¥Î
4. ·Q¾Ç²ß¨t²Î³W¹º,·Q§ä¨t²Î¬[ºcªºÅU°Ý
½ÐÁpµ¸§ÚÌ,¤]³\§ÚÌÀ°±o¤W¦£ |
|
¦^³»ºÝ |
|
|
andywilliams
µù¥U®É¶¡: 2004-10-23 ¤å³¹: 111
²Ä 13 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤Q¤ë 29, 2019 12:42 am ¤å³¹¥DÃD: |
|
|
WshShell = CreateObject("WScript.Shell")
PSrun = "PowerShell Get-Content big5.txt | Set-Content -Encoding utf8 utf8.txt"
WshShell.Run( PSrun,0,.T.) |
|
¦^³»ºÝ |
|
|
OLDSTONE
µù¥U®É¶¡: 2003-09-30 ¤å³¹: 29
²Ä 14 ¼Ó
|
µoªí©ó: ¬P´Á¤ ¤@¤ë 03, 2020 10:14 am ¤å³¹¥DÃD: |
|
|
andywilliams ¼g¨ì: | WshShell = CreateObject("WScript.Shell")
PSrun = "PowerShell Get-Content big5.txt | Set-Content -Encoding utf8 utf8.txt"
WshShell.Run( PSrun,0,.T.) |
ÁÂÁÂ
§Ú¥ÎPowerShell ¥iÂন utf8
¦ý¬Oì •] ¦r ¬O¦b¦³¥Îunicode¸É¥þ ¤~¬Ýªº¨ì
Âà¨ì utf8 «hÅܦ¨ªÅ¥Õ.
½Ð±Ð¦³¦ó¤èªk¦p¦ó¸É±Ï? |
|
¦^³»ºÝ |
|
|
|
|
±z µLªk ¦b³oÓª©±µoªí¤å³¹ ±z µLªk ¦b³oÓª©±¦^ÂФ峹 ±z µLªk ¦b³oÓª©±½s¿è¤å³¹ ±z µLªk ¦b³oÓª©±§R°£¤å³¹ ±z µLªk ¦b³oÓª©±¶i¦æ§ë²¼ ±z µLªk ¦b³oÓª©±ªþ¥[ÀÉ®× ±z µLªk ¦b³oÓª©±¤U¸üÀÉ®×
|
Powered by phpBB © 2001, 2005 phpBB Group ¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@
|