{"id":25393,"date":"2020-11-16T08:28:51","date_gmt":"2020-11-16T01:28:51","guid":{"rendered":"https:\/\/tom.ji42.com\/?p=25393"},"modified":"2020-11-16T08:28:51","modified_gmt":"2020-11-16T01:28:51","slug":"%e0%b8%81%e0%b8%b2%e0%b8%a3%e0%b9%80%e0%b8%82%e0%b8%b5%e0%b8%a2%e0%b8%99%e0%b8%9f%e0%b8%b1%e0%b8%87%e0%b8%81%e0%b9%8c%e0%b8%8a%e0%b8%b1%e0%b8%99function","status":"publish","type":"post","link":"https:\/\/tom.tomwork.net\/?p=25393","title":{"rendered":"\u0e01\u0e32\u0e23\u0e40\u0e02\u0e35\u0e22\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19(Function)"},"content":{"rendered":"

\u0e2d\u0e30\u0e44\u0e23\u0e40\u0e2d\u0e48\u0e22\u0e40\u0e02\u0e35\u0e22\u0e19\u0e04\u0e23\u0e31\u0e49\u0e07\u0e40\u0e14\u0e35\u0e22\u0e27\u0e41\u0e15\u0e48\u0e43\u0e0a\u0e49\u0e1a\u0e48\u0e2d\u0e22?<\/p>\n

\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e04\u0e37\u0e2d\u0e2d\u0e30\u0e44\u0e23? \u0e16\u0e49\u0e32\u0e16\u0e32\u0e21\u0e1c\u0e21 \u0e1c\u0e21\u0e1a\u0e2d\u0e01\u0e44\u0e14\u0e49\u0e40\u0e25\u0e22\u0e27\u0e48\u0e32\u0e21\u0e31\u0e19\u0e01\u0e47\u0e04\u0e37\u0e2d\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e1b\u0e23\u0e30\u0e40\u0e20\u0e17\u0e2b\u0e19\u0e36\u0e48\u0e07\u0e40\u0e17\u0e48\u0e32\u0e19\u0e31\u0e49\u0e19\u0e40\u0e2d\u0e07 \u0e43\u0e04\u0e23\u0e17\u0e23\u0e32\u0e1a\u0e04\u0e27\u0e32\u0e21\u0e2b\u0e21\u0e32\u0e22\u0e22\u0e32\u0e27\u0e46\u0e1a\u0e2d\u0e01\u0e14\u0e49\u0e27\u0e22 \u0e23\u0e39\u0e49\u0e41\u0e15\u0e48\u0e43\u0e0a\u0e49\u0e40\u0e17\u0e48\u0e32\u0e19\u0e31\u0e49\u0e19\u0e40\u0e2d\u0e07\u0e41\u0e15\u0e48\u0e17\u0e35\u0e48\u0e41\u0e19\u0e48\u0e19\u0e46\u0e21\u0e31\u0e19\u0e17\u0e33\u0e43\u0e2b\u0e49\u0e1c\u0e39\u0e49\u0e43\u0e0a\u0e49\u0e17\u0e33\u0e07\u0e32\u0e19\u0e07\u0e48\u0e32\u0e22\u0e02\u0e36\u0e49\u0e19 \u0e41\u0e15\u0e48\u0e04\u0e19\u0e40\u0e02\u0e35\u0e22\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e1a\u0e32\u0e07\u0e17\u0e35\u0e01\u0e47\u0e44\u0e21\u0e48\u0e07\u0e48\u0e32\u0e22\u0e19\u0e30\u0e04\u0e23\u0e31\u0e1a<\/p>\n

\u0e43\u0e19 Visual FoxPro \u0e21\u0e35\u0e1b\u0e23\u0e30\u0e40\u0e20\u0e17\u0e02\u0e2d\u0e07\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e2d\u0e22\u0e39\u0e48 2 \u0e0a\u0e19\u0e34\u0e14\u0e14\u0e49\u0e27\u0e22\u0e01\u0e31\u0e19
\n1. \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e17\u0e35\u0e48\u0e21\u0e32\u0e01\u0e31\u0e1a\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21 (Visual FoxPro function)
\n2. \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e17\u0e35\u0e48\u0e1c\u0e39\u0e49\u0e43\u0e0a\u0e49\u0e01\u0e33\u0e2b\u0e19\u0e14\u0e40\u0e2d\u0e07 (user-defined function (UDF))<\/p><\/blockquote>\n

<\/p>\n

\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e17\u0e35\u0e48\u0e21\u0e32\u0e01\u0e31\u0e1a\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e19\u0e31\u0e49\u0e19\u0e21\u0e35\u0e2d\u0e22\u0e39\u0e48\u0e21\u0e32\u0e01\u0e1e\u0e2d\u0e2a\u0e21\u0e04\u0e27\u0e23\u0e41\u0e15\u0e48\u0e22\u0e31\u0e07\u0e44\u0e21\u0e48\u0e1e\u0e2d\u0e2b\u0e23\u0e2d\u0e01\u0e04\u0e23\u0e31\u0e1a \u0e40\u0e1e\u0e23\u0e32\u0e30\u0e19\u0e34\u0e2a\u0e31\u0e22\u0e02\u0e2d\u0e07\u0e21\u0e19\u0e38\u0e29\u0e22\u0e4c\u0e21\u0e31\u0e19\u0e44\u0e21\u0e23\u0e39\u0e49\u0e08\u0e31\u0e01\u0e1e\u0e2d\u0e2d\u0e22\u0e39\u0e48\u0e41\u0e25\u0e49\u0e27 \u0e40\u0e02\u0e32\u0e01\u0e47\u0e40\u0e25\u0e22\u0e2d\u0e19\u0e38\u0e0d\u0e32\u0e15\u0e34\u0e43\u0e2b\u0e49\u0e04\u0e38\u0e13\u0e46\u0e17\u0e31\u0e49\u0e07\u0e2b\u0e25\u0e32\u0e22\u0e17\u0e33\u0e21\u0e31\u0e19\u0e02\u0e36\u0e49\u0e19\u0e21\u0e32\u0e44\u0e14\u0e49\u0e40\u0e2d\u0e07\u0e08\u0e30\u0e17\u0e33\u0e40\u0e1b\u0e47\u0e19\u0e2d\u0e30\u0e44\u0e23\u0e01\u0e47\u0e44\u0e14\u0e49\u0e44\u0e21\u0e48\u0e27\u0e48\u0e32\u0e01\u0e31\u0e19\u0e15\u0e32\u0e21\u0e2a\u0e1a\u0e32\u0e22 \u0e41\u0e15\u0e48\u0e01\u0e47\u0e21\u0e35\u0e02\u0e49\u0e2d\u0e41\u0e21\u0e49\u0e43\u0e19\u0e01\u0e32\u0e23\u0e17\u0e33\u0e1a\u0e49\u0e32\u0e07\u0e40\u0e25\u0e47\u0e01\u0e46\u0e19\u0e49\u0e2d\u0e22\u0e46 \u00a0 \u0e2b\u0e25\u0e31\u0e01\u0e01\u0e32\u0e23\u0e17\u0e33\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e02\u0e36\u0e49\u0e19\u0e43\u0e0a\u0e49\u0e40\u0e2d\u0e07\u0e01\u0e47\u0e44\u0e21\u0e48\u0e44\u0e14\u0e49\u0e22\u0e32\u0e01\u0e40\u0e22\u0e47\u0e19\u0e40\u0e02\u0e47\u0e19\u0e43\u0e08\u0e2d\u0e30\u0e44\u0e23\u0e21\u0e35\u0e02\u0e49\u0e2d\u0e41\u0e21\u0e49\u0e07\u0e48\u0e32\u0e22\u0e46\u0e14\u0e31\u0e07\u0e19\u0e35\u0e49
\n1. \u0e40\u0e27\u0e25\u0e32\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e15\u0e49\u0e2d\u0e07\u0e40\u0e23\u0e34\u0e48\u0e21\u0e15\u0e49\u0e19\u0e14\u0e49\u0e27\u0e22\u0e04\u0e33\u0e27\u0e48\u0e32 \u00a0\u00a0 FUNCTION \u0e41\u0e25\u0e49\u0e27\u0e01\u0e47\u0e15\u0e32\u0e21\u0e14\u0e49\u0e27\u0e22\u0e0a\u0e37\u0e48\u0e2d\u0e02\u0e2d\u0e07\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19
\n2. \u0e0a\u0e37\u0e48\u0e2d\u0e02\u0e2d\u0e07\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e22\u0e32\u0e27\u0e44\u0e14\u0e49\u0e44\u0e21\u0e48\u0e40\u0e01\u0e34\u0e19 254 \u0e15\u0e31\u0e27\u0e2d\u0e31\u0e01\u0e29\u0e23 \u0e16\u0e49\u0e32\u0e04\u0e38\u0e13\u0e43\u0e0a\u0e49\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e17\u0e35\u0e48\u0e15\u0e48\u0e33\u0e01\u0e27\u0e48\u0e32 Visual FoxPro \u0e43\u0e0a\u0e49\u0e44\u0e14\u0e49\u0e41\u0e04\u0e48 10 \u0e15\u0e31\u0e27
\n3. \u0e0a\u0e37\u0e48\u0e2d\u0e02\u0e2d\u0e07\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e15\u0e49\u0e2d\u0e07\u0e44\u0e21\u0e48\u0e44\u0e1b\u0e0b\u0e49\u0e33\u0e01\u0e31\u0e1a\u0e0a\u0e37\u0e48\u0e2d\u0e02\u0e2d\u0e07\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 \u0e41\u0e25\u0e30\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e43\u0e19 Visual FoxPro
\n4. \u0e04\u0e48\u0e32\u0e2a\u0e48\u0e07\u0e1c\u0e48\u0e32\u0e19 (parameter) \u0e08\u0e30\u0e21\u0e35\u0e2b\u0e23\u0e37\u0e2d\u0e44\u0e21\u0e48\u0e21\u0e35\u0e01\u0e47\u0e44\u0e14\u0e49 \u0e40\u0e17\u0e48\u0e32\u0e17\u0e35\u0e48\u0e40\u0e2b\u0e47\u0e19\u0e40\u0e04\u0e49\u0e32\u0e17\u0e33\u0e01\u0e31\u0e19\u0e21\u0e35\u0e17\u0e31\u0e49\u0e07\u0e19\u0e31\u0e49\u0e19\u0e41\u0e2b\u0e25\u0e30
\n5. \u00a0 \u0e04\u0e48\u0e32\u0e2a\u0e48\u0e07\u0e1c\u0e48\u0e32\u0e19\u0e21\u0e35\u0e44\u0e14\u0e49\u0e2a\u0e39\u0e07\u0e2a\u0e38\u0e14\u0e43\u0e19 1 \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e44\u0e21\u0e48\u0e40\u0e01\u0e34\u0e19 24 \u0e04\u0e48\u0e32
\n6. \u0e40\u0e21\u0e37\u0e48\u0e2d\u0e40\u0e1b\u0e47\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e40\u0e27\u0e25\u0e32\u0e2d\u0e2d\u0e01\u0e15\u0e49\u0e2d\u0e07\u0e21\u0e35\u0e04\u0e48\u0e32\u0e01\u0e25\u0e31\u0e1a\u0e21\u0e32\u0e40\u0e2a\u0e21\u0e2d \u0e44\u0e21\u0e48\u0e27\u0e48\u0e32\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19\u0e15\u0e31\u0e27\u0e40\u0e25\u0e02 \u0e15\u0e31\u0e27\u0e2d\u0e31\u0e01\u0e29\u0e23 \u0e15\u0e23\u0e23\u0e01\u0e30 \u0e27\u0e31\u0e19\u0e17\u0e35\u0e48 \u0e2b\u0e23\u0e37\u0e2d\u0e04\u0e48\u0e32\u0e17\u0e35\u0e48\u0e44\u0e21\u0e48\u0e21\u0e35\u0e04\u0e48\u0e32(NULL) \u0e40\u0e1b\u0e47\u0e19\u0e15\u0e49\u0e19
\n7. \u0e40\u0e02\u0e35\u0e22\u0e19\u0e44\u0e14\u0e49\u0e44\u0e21\u0e48\u0e08\u0e33\u0e01\u0e31\u0e14\u0e08\u0e33\u0e19\u0e27\u0e19 \u0e02\u0e22\u0e31\u0e19\u0e01\u0e47\u0e40\u0e02\u0e35\u0e22\u0e19\u0e44\u0e1b\u0e21\u0e35\u0e41\u0e23\u0e07\u0e01\u0e47\u0e17\u0e33\u0e44\u0e1b \u0e40\u0e02\u0e35\u0e22\u0e19\u0e08\u0e19\u0e15\u0e32\u0e22\u0e01\u0e47\u0e44\u0e21\u0e48\u0e08\u0e1a….\u0e16\u0e49\u0e32\u0e22\u0e31\u0e07\u0e44\u0e21\u0e48\u0e23\u0e39\u0e49\u0e08\u0e31\u0e01\u0e1e\u0e2d<\/p>\n

\u0e23\u0e39\u0e49\u0e2b\u0e25\u0e31\u0e01\u0e01\u0e32\u0e23\u0e17\u0e33\u0e44\u0e1b\u0e41\u0e25\u0e49\u0e27\u0e21\u0e32\u0e14\u0e39\u0e2b\u0e25\u0e31\u0e01\u0e01\u0e32\u0e23\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e1a\u0e49\u0e32\u0e07
\n1. \u0e40\u0e23\u0e32\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e44\u0e14\u0e49\u0e17\u0e38\u0e01\u0e17\u0e35\u0e48\u0e17\u0e35\u0e48\u0e40\u0e02\u0e35\u0e22\u0e19\u0e40\u0e1b\u0e47\u0e19\u0e19\u0e34\u0e1e\u0e08\u0e19\u0e4c\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e44\u0e14\u0e49 \u0e41\u0e25\u0e30\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e02\u0e2d\u0e07 Visual FoxPro \u0e01\u0e47\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e40\u0e02\u0e35\u0e22\u0e19\u0e44\u0e14\u0e49
\n2. \u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e40\u0e23\u0e35\u0e22\u0e01\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e0b\u0e49\u0e2d\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e44\u0e14\u0e49\u0e16\u0e36\u0e07 32 \u0e23\u0e30\u0e14\u0e31\u0e1a (\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e22\u0e31\u0e07\u0e44\u0e21\u0e48\u0e41\u0e19\u0e48\u0e19\u0e2d\u0e19\u0e15\u0e2d\u0e19\u0e19\u0e35\u0e49\u0e2d\u0e32\u0e08\u0e40\u0e22\u0e2d\u0e30\u0e01\u0e27\u0e48\u0e32\u0e19\u0e35\u0e49\u0e01\u0e47\u0e44\u0e14\u0e49 \u0e41\u0e15\u0e48\u0e22\u0e31\u0e07\u0e44\u0e21\u0e48\u0e40\u0e04\u0e22\u0e40\u0e2b\u0e47\u0e19\u0e43\u0e04\u0e23\u0e40\u0e02\u0e35\u0e22\u0e19\u0e40\u0e22\u0e2d\u0e30\u0e02\u0e19\u0e32\u0e19 32 \u0e23\u0e30\u0e14\u0e31\u0e1a\u0e40\u0e25\u0e22)<\/p>\n

\u0e17\u0e35\u0e19\u0e35\u0e49\u0e40\u0e23\u0e32\u0e21\u0e32\u0e14\u0e39\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e01\u0e32\u0e23\u0e43\u0e0a\u0e49\u0e01\u0e31\u0e19\u0e01\u0e48\u0e2d\u0e19 (\u0e02\u0e2d\u0e22\u0e37\u0e21\u0e02\u0e2d\u0e07 \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e43\u0e19Visual FoxPro \u0e43\u0e0a\u0e49\u0e01\u0e48\u0e2d\u0e19\u0e01\u0e47\u0e41\u0e25\u0e49\u0e27\u0e01\u0e31\u0e19)
\nmyVAR = DATE()
\nSTOR MONTH(DATE()) TO thisMonth
\n=CAPSLOCK(.T.) \u00a0\u00a0 && \u0e01\u0e33\u0e2b\u0e19\u0e14\u0e43\u0e2b\u0e49\u0e1b\u0e49\u0e2d\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e1b\u0e47\u0e19\u0e15\u0e31\u0e27\u0e2d\u0e31\u0e01\u0e29\u0e23\u0e43\u0e2b\u0e0d\u0e48
\nDO WHILE !EOF()
\nINSERT INTO Salesman(LASTUPDATE) VALUE(DATE())<\/p>\n

\u0e08\u0e32\u0e01\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e02\u0e49\u0e32\u0e07\u0e15\u0e49\u0e19\u0e40\u0e23\u0e32\u0e08\u0e30\u0e2a\u0e31\u0e07\u0e40\u0e01\u0e15\u0e38\u0e44\u0e14\u0e49\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e23\u0e27\u0e48\u0e32\u0e2d\u0e30\u0e44\u0e23\u0e40\u0e1b\u0e47\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 \u0e07\u0e48\u0e32\u0e22\u0e46\u0e01\u0e47\u0e04\u0e37\u0e2d\u0e2b\u0e25\u0e31\u0e07\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e19\u0e31\u0e49\u0e19\u0e46\u0e08\u0e30\u0e21\u0e35\u0e27\u0e07\u0e40\u0e25\u0e47\u0e1a() \u0e2d\u0e22\u0e39\u0e48 \u0e41\u0e15\u0e48\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e07\u0e25\u0e30\u0e27\u0e48\u0e32 Salesman \u0e40\u0e1b\u0e47\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e48\u0e19\u0e40\u0e1e\u0e23\u0e32\u0e30\u0e21\u0e35\u0e27\u0e07\u0e40\u0e25\u0e47\u0e1a \u0e21\u0e31\u0e19\u0e04\u0e19\u0e25\u0e30\u0e40\u0e23\u0e37\u0e48\u0e2d\u0e07\u0e01\u0e31\u0e19\u0e2d\u0e31\u0e19\u0e19\u0e31\u0e49\u0e19\u0e21\u0e31\u0e19\u0e40\u0e1b\u0e47\u0e19 \u0e04\u0e35\u0e22\u0e4c\u0e40\u0e27\u0e34\u0e23\u0e4c\u0e14\u0e02\u0e2d\u0e07\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07 INSERT INTO<\/p>\n

\u0e40\u0e23\u0e32\u0e21\u0e32\u0e40\u0e23\u0e34\u0e48\u0e21\u0e40\u0e02\u0e35\u0e22\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e43\u0e0a\u0e49\u0e01\u0e31\u0e19\u0e14\u0e35\u0e01\u0e27\u0e48\u0e32
\n\u0e40\u0e23\u0e34\u0e48\u0e21\u0e07\u0e48\u0e32\u0e22\u0e46\u0e25\u0e2d\u0e07\u0e1b\u0e49\u0e2d\u0e19\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e15\u0e32\u0e21\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e02\u0e49\u0e32\u0e07\u0e25\u0e48\u0e32\u0e07\u0e01\u0e48\u0e2d\u0e19\u0e40\u0e1b\u0e47\u0e19\u0e01\u0e32\u0e23\u0e19\u0e33 \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e02\u0e2d\u0e07 Visual FoxPro \u0e21\u0e32\u0e14\u0e31\u0e14\u0e41\u0e1b\u0e25\u0e07\u0e43\u0e2b\u0e49\u0e40\u0e1b\u0e47\u0e19\u0e15\u0e32\u0e21\u0e41\u0e1a\u0e1a\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e04\u0e27\u0e32\u0e21\u0e2a\u0e30\u0e14\u0e27\u0e01\u0e02\u0e2d\u0e07\u0e40\u0e23\u0e32\u0e40\u0e2d\u0e07<\/p>\n

\u0e43\u0e2b\u0e49\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e0a\u0e37\u0e48\u0e2d UTILITY.PRG \u0e08\u0e32\u0e01 command windows \u0e1b\u0e49\u0e2d\u0e19 modify command UTILITY \u0e41\u0e25\u0e49\u0e27\u0e1e\u0e34\u0e21\u0e1e\u0e4c\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e15\u0e32\u0e21\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e14\u0e49\u0e32\u0e19\u0e25\u0e48\u0e32\u0e07\u0e25\u0e07\u0e44\u0e1b<\/p>\n

FUNCTION MyMessage
\nPARAMETER cMessageText,cMessageTitle
\n* 4 = Yes and No buttons
\n* 32 = Question mark icon
\n* 256 = Secound buttons is default
\n* return value 6 for click YES
\n* return value 7 for click NO
\nRETURN MESSAGEBOX(cMessageText,4+32+256,cMessageTitle)<\/p><\/blockquote>\n

\u0e40\u0e27\u0e25\u0e32\u0e40\u0e23\u0e32\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 \u0e43\u0e2b\u0e49\u0e04\u0e38\u0e13\u0e17\u0e33\u0e01\u0e32\u0e23\u0e1b\u0e49\u0e2d\u0e19\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07 SET PROCEDURE TO UTILITY \u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e1a\u0e2d\u0e01\u0e43\u0e2b\u0e49\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e17\u0e33\u0e01\u0e32\u0e23\u0e2b\u0e32\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e08\u0e32\u0e01 \u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e01\u0e33\u0e2b\u0e19\u0e14\u0e44\u0e27\u0e49\u0e01\u0e47\u0e04\u0e37\u0e2d\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21 UTILITY \u0e2b\u0e25\u0e31\u0e07\u0e08\u0e32\u0e01\u0e19\u0e31\u0e49\u0e19\u0e40\u0e23\u0e32\u0e25\u0e2d\u0e07\u0e17\u0e33\u0e01\u0e32\u0e23\u0e17\u0e14\u0e2a\u0e2d\u0e1a\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e02\u0e2d\u0e07\u0e40\u0e23\u0e32\u0e14\u0e39 \u0e43\u0e2b\u0e49\u0e1b\u0e49\u0e2d\u0e19\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e15\u0e48\u0e2d\u0e44\u0e1b\u0e19\u0e35\u0e49\u0e17\u0e35\u0e48 command windows \u0e14\u0e39\u0e27\u0e48\u0e32\u0e40\u0e01\u0e34\u0e14\u0e2d\u0e30\u0e44\u0e23\u0e02\u0e36\u0e49\u0e19\u0e1a\u0e49\u0e32\u0e07<\/p>\n

? MyMessage(‘\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e1a\u0e31\u0e19\u0e17\u0e36\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25’,’\u0e1a\u0e31\u0e19\u0e17\u0e36\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25’)
\nnAnswer = MyMessage(‘\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e1a\u0e31\u0e19\u0e17\u0e36\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25’,’\u0e1a\u0e31\u0e19\u0e17\u0e36\u0e01\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25’)
\n?nAnswer<\/p>\n

\u0e17\u0e48\u0e32\u0e19\u0e17\u0e23\u0e32\u0e1a\u0e2b\u0e23\u0e37\u0e2d\u0e44\u0e21\u0e48\u0e27\u0e48\u0e32\u0e40\u0e21\u0e37\u0e48\u0e2d\u0e40\u0e23\u0e32\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e43\u0e19 Visual FoxPro \u0e21\u0e35\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e01\u0e32\u0e23\u0e04\u0e49\u0e19\u0e2b\u0e32\u0e27\u0e48\u0e32\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e19\u0e31\u0e49\u0e19\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e23
\n\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e41\u0e23\u0e01\u0e40\u0e25\u0e22\u0e16\u0e49\u0e32\u0e40\u0e23\u0e32\u0e21\u0e35\u0e01\u0e32\u0e23\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e43\u0e14\u0e46\u0e01\u0e47\u0e15\u0e32\u0e21\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e08\u0e30\u0e17\u0e33\u0e01\u0e32\u0e23\u0e2b\u0e32\u0e17\u0e35\u0e48\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e02\u0e2d\u0e07 Visual FoxPro \u0e01\u0e48\u0e2d\u0e19
\n\u0e25\u0e33\u0e14\u0e31\u0e1a\u0e16\u0e31\u0e14\u0e21\u0e32\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e08\u0e30\u0e17\u0e33\u0e01\u0e32\u0e23\u0e2b\u0e32\u0e17\u0e35\u0e48 \u0e42\u0e1e\u0e0b\u0e34\u0e40\u0e22\u0e2d\u0e23\u0e4c(Procedure) \u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e1b\u0e34\u0e14\u0e2d\u0e22\u0e39\u0e48 \u00a0 \u0e40\u0e23\u0e32\u0e40\u0e1b\u0e34\u0e14\u0e42\u0e14\u0e22\u0e43\u0e0a\u0e49\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07 set procedure to ….
\n\u0e2a\u0e38\u0e14\u0e17\u0e49\u0e32\u0e22\u0e16\u0e49\u0e32\u0e2b\u0e32\u0e17\u0e31\u0e49\u0e07\u0e2a\u0e2d\u0e07\u0e17\u0e35\u0e48\u0e44\u0e21\u0e48\u0e40\u0e08\u0e2d\u0e01\u0e47\u0e08\u0e30\u0e17\u0e33\u0e01\u0e32\u0e23\u0e2b\u0e32\u0e17\u0e35\u0e48 \u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21 .prg \u0e40\u0e0a\u0e48\u0e19 \u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19 MyMessage \u0e01\u0e47\u0e08\u0e30\u0e17\u0e33\u0e01\u0e32\u0e23\u0e2b\u0e32\u0e27\u0e48\u0e32\u0e21\u0e35\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e0a\u0e37\u0e48\u0e2d MyMessage.prg \u0e2b\u0e23\u0e37\u0e2d\u0e44\u0e21\u0e48 \u0e16\u0e49\u0e32\u0e21\u0e35\u0e01\u0e47\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e43\u0e2b\u0e49
\n\u0e16\u0e49\u0e32\u0e22\u0e31\u0e07\u0e2b\u0e32\u0e44\u0e21\u0e48\u0e40\u0e08\u0e2d\u0e2d\u0e35\u0e01\u0e01\u0e47\u0e08\u0e30\u0e02\u0e36\u0e49\u0e19 Error \u0e27\u0e48\u0e32 File ‘????????.prg’ does not exist<\/p>\n

\u0e43\u0e19\u0e01\u0e32\u0e23\u0e40\u0e02\u0e35\u0e22\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e02\u0e36\u0e49\u0e19\u0e21\u0e32\u0e19\u0e31\u0e49\u0e19 \u0e40\u0e21\u0e37\u0e48\u0e2d\u0e40\u0e23\u0e32\u0e40\u0e02\u0e35\u0e22\u0e19\u0e40\u0e2a\u0e23\u0e47\u0e08\u0e40\u0e23\u0e35\u0e22\u0e1a\u0e23\u0e49\u0e2d\u0e22\u0e41\u0e25\u0e49\u0e27\u0e40\u0e23\u0e32\u0e04\u0e27\u0e23\u0e08\u0e30\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e01\u0e47\u0e1a\u0e40\u0e1b\u0e47\u0e19\u0e2b\u0e21\u0e27\u0e14\u0e2b\u0e21\u0e39\u0e48\u0e2b\u0e23\u0e37\u0e2d Library \u0e44\u0e27\u0e49 \u0e40\u0e27\u0e25\u0e32\u0e40\u0e23\u0e35\u0e22\u0e01\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e2b\u0e23\u0e37\u0e2d\u0e19\u0e33\u0e44\u0e1b\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e08\u0e30\u0e44\u0e14\u0e49\u0e2a\u0e30\u0e14\u0e27\u0e01 \u0e41\u0e25\u0e49\u0e27\u0e08\u0e30\u0e17\u0e33\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e23\u0e25\u0e48\u0e30? \u0e08\u0e32\u0e01\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e02\u0e49\u0e32\u0e07\u0e15\u0e49\u0e19\u0e1c\u0e21\u0e43\u0e2b\u0e49\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e0a\u0e37\u0e48\u0e2d utility.prg \u0e02\u0e36\u0e49\u0e19\u0e21\u0e32\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e01\u0e47\u0e1a \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e44\u0e14\u0e49\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e02\u0e35\u0e22\u0e19\u0e02\u0e36\u0e49\u0e19\u0e21\u0e32 \u0e43\u0e19 1 \u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e40\u0e23\u0e32\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e43\u0e2a\u0e48\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e17\u0e35\u0e48\u0e40\u0e23\u0e32\u0e40\u0e02\u0e35\u0e22\u0e19\u0e02\u0e36\u0e49\u0e19\u0e21\u0e32\u0e44\u0e14\u0e49\u0e40\u0e23\u0e37\u0e48\u0e2d\u0e22\u0e46\u0e02\u0e36\u0e49\u0e19\u0e2d\u0e22\u0e39\u0e48\u0e01\u0e31\u0e1a memory \u0e02\u0e2d\u0e07\u0e40\u0e04\u0e23\u0e37\u0e48\u0e2d\u0e07\u0e04\u0e38\u0e13\u0e27\u0e48\u0e32\u0e08\u0e30\u0e23\u0e31\u0e1a\u0e44\u0e14\u0e49\u0e41\u0e04\u0e48\u0e44\u0e2b\u0e19 \u0e42\u0e14\u0e22\u0e01\u0e32\u0e23\u0e40\u0e02\u0e35\u0e22\u0e19\u0e15\u0e48\u0e2d\u0e46\u0e01\u0e31\u0e19\u0e44\u0e1b\u0e40\u0e23\u0e37\u0e48\u0e2d\u0e22\u0e46 \u0e14\u0e31\u0e07\u0e19\u0e35\u0e49<\/p>\n

*\u00a0\u00a0\u00a0 utility.prg
\nFUNCTION MyMessage
\n……
\nRETURN <value><\/p>\n

FUNCTION tCDOW
\nPARAMETER dDATE
\nnDay=DOW(dDATE)
\nDO CASE
\nCASE nDAY=1
\nRETRUN ‘\u0e2d\u0e32\u0e17\u0e34\u0e15\u0e22\u0e4c’
\nCASE nDAY=2
\nRETRUN ‘\u0e08\u0e31\u0e19\u0e17\u0e23\u0e4c’
\nCASE nDAY=3
\nRETRUN ‘\u0e2d\u0e31\u0e07\u0e04\u0e32\u0e23’
\nCASE nDAY=4
\nRETRUN ‘\u0e1e\u0e38\u0e18’
\nCASE nDAY=5
\nRETRUN ‘\u0e1e\u0e24\u0e2b\u0e31\u0e2a\u0e1a\u0e14\u0e35’
\nCASE nDAY=6
\nRETRUN ‘\u0e28\u0e38\u0e01\u0e23\u0e4c’
\nCASE nDAY=7
\nRETRUN ‘\u0e40\u0e2a\u0e32\u0e23\u0e4c’
\nENDCASE
\nRETURN ”<\/p>\n

FUNCTION myFunction
\n……
\nRETURN<\/p>\n

…..<\/p><\/blockquote>\n

\u0e40\u0e21\u0e37\u0e48\u0e2d\u0e40\u0e23\u0e32\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e02\u0e35\u0e22\u0e19\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21\u0e17\u0e35\u0e48\u0e17\u0e33\u0e01\u0e32\u0e23\u0e40\u0e01\u0e47\u0e1a\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e15\u0e48\u0e32\u0e07\u0e46\u0e41\u0e25\u0e49\u0e27 \u0e40\u0e27\u0e25\u0e32\u0e08\u0e30\u0e19\u0e33\u0e21\u0e32\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e40\u0e23\u0e32\u0e15\u0e49\u0e2d\u0e07\u0e1b\u0e23\u0e30\u0e01\u0e32\u0e28\u0e43\u0e2b\u0e49 Visual FoxPro \u0e17\u0e23\u0e32\u0e1a\u0e01\u0e48\u0e2d\u0e19 \u0e42\u0e14\u0e22\u0e43\u0e0a\u0e49\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07 set procedure to \u0e0b\u0e36\u0e48\u0e07\u0e40\u0e04\u0e22\u0e22\u0e01\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e27\u0e49\u0e43\u0e2b\u0e49\u0e14\u0e39\u0e41\u0e25\u0e49\u0e27\u0e43\u0e19\u0e15\u0e2d\u0e19\u0e15\u0e49\u0e19\u0e17\u0e35\u0e19\u0e35\u0e49\u0e40\u0e23\u0e32\u0e21\u0e32\u0e14\u0e39\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e27\u0e48\u0e32\u0e40\u0e1b\u0e47\u0e19\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e23<\/p>\n

SET PROCEDURE TO [FileName1 [, FileName2, …]]\u00a0\u00a0\u00a0 [ADDITIVE]<\/p><\/blockquote>\n

\u0e40\u0e0a\u0e48\u0e19\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SET PROCEDURE TO UTILITY,MYFUNCTION,STATFUNCTION
\nSET PROCEDURE TO FORMFUNCTION ADDITIVE<\/p>\n

\u0e2a\u0e48\u0e27\u0e19\u0e43\u0e2b\u0e0d\u0e48\u0e01\u0e32\u0e23\u0e1b\u0e23\u0e30\u0e01\u0e32\u0e28\u0e43\u0e0a\u0e49\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e40\u0e23\u0e32\u0e08\u0e30\u0e01\u0e23\u0e30\u0e17\u0e33\u0e01\u0e31\u0e19\u0e17\u0e35\u0e48 main program \u0e1b\u0e23\u0e30\u0e01\u0e32\u0e28\u0e44\u0e27\u0e49\u0e04\u0e23\u0e31\u0e49\u0e07\u0e41\u0e23\u0e01\u0e04\u0e23\u0e31\u0e49\u0e07\u0e40\u0e14\u0e35\u0e22\u0e27\u0e01\u0e47\u0e1e\u0e2d<\/p>\n

\u0e15\u0e48\u0e2d\u0e44\u0e1b\u0e19\u0e35\u0e49\u0e40\u0e1b\u0e47\u0e19\u0e15\u0e49\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19
\n\u0e16\u0e49\u0e32\u0e04\u0e38\u0e13\u0e21\u0e35\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e17\u0e35\u0e48\u0e14\u0e35\u0e46\u0e41\u0e25\u0e49\u0e27\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e40\u0e1c\u0e22\u0e41\u0e1e\u0e23\u0e48\u0e01\u0e23\u0e38\u0e13\u0e32\u0e2a\u0e48\u0e07\u0e21\u0e32\u0e2b\u0e32\u0e40\u0e23\u0e32\u0e40\u0e23\u0e32\u0e08\u0e30\u0e40\u0e1b\u0e47\u0e19\u0e2a\u0e37\u0e48\u0e2d\u0e01\u0e25\u0e32\u0e07\u0e43\u0e2b\u0e49<\/strong><\/p>\n

Download NUM2CH.PRG<\/strong><\/u><\/span><\/a>
\n* —FUNCTION NUM2CH
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…… \u0e40\u0e1b\u0e25\u0e37\u0e48\u0e22\u0e19\u0e15\u0e31\u0e27\u0e40\u0e25\u0e02\u0e40\u0e1b\u0e47\u0e19\u0e15\u0e31\u0e27\u0e2d\u0e31\u0e01\u0e29\u0e23 (9,999,999,999.99)
\n* —\u0e1c\u0e39\u0e49\u0e40\u0e02\u0e35\u0e22\u0e19…….. Kasem K.
\n* —\u0e27\u0e31\u0e19\u0e41\u0e01\u0e49\u0e44\u0e02……. 12.08.92
\n*– \u0e19\u0e33\u0e44\u0e1b\u0e43\u0e0a\u0e49…… cSTRING=NUM2CH(9999.22)
\n***************************************************************
\nFUNCTION NUM2CH
\nPARA mNUM && \u0e40\u0e25\u0e02\u0e44\u0e21\u0e48\u0e40\u0e01\u0e34\u0e19 10.2 \u0e2b\u0e25\u0e31\u0e01
\nPUBL mTCH(9),mTDEC(10)
\nmTCH(1)=’\u0e2b\u0e19\u0e36\u0e48\u0e07’
\nmTCH(2)=’\u0e2a\u0e2d\u0e07’
\nmTCH(3)=’\u0e2a\u0e32\u0e21’
\nmTCH(4)=’\u0e2a\u0e35\u0e48’
\nmTCH(5)=’\u0e2b\u0e49\u0e32’
\nmTCH(6)=’\u0e2b\u0e01’
\nmTCH(7)=’\u0e40\u0e08\u0e47\u0e14’
\nmTCH(8)=’\u0e41\u0e1b\u0e14’
\nmTCH(9)=’\u0e40\u0e01\u0e49\u0e32’
\nmTDEC(1) =’\u0e1e\u0e31\u0e19’
\nmTDEC(2) =’\u0e23\u0e49\u0e2d\u0e22’
\nmTDEC(3) =’\u0e2a\u0e34\u0e1a’
\nmTDEC(4) =’\u0e25\u0e49\u0e32\u0e19’
\nmTDEC(5) =’\u0e41\u0e2a\u0e19’
\nmTDEC(6) =’\u0e2b\u0e21\u0e37\u0e48\u0e19’
\nmTDEC(7) =’\u0e1e\u0e31\u0e19’
\nmTDEC(8) =’\u0e23\u0e49\u0e2d\u0e22’
\nmTDEC(9) =’\u0e2a\u0e34\u0e1a’
\nmTDEC(10)=”
\nmSTNUM=STR(mNUM*100,12)
\nmSTTHAI=”
\nmCNT=1
\nDO WHIL mCNT<=10
\nmCHNUM=SUBSTR(mSTNUM,mCNT,1)
\nIF mCHNUM=’ ‘
\nmSTTHAI=mSTTHAI+”
\nELSE
\nIF mCHNUM=’0′
\nmSTTHAI=IIF(mCNT=4,mSTTHAI+’\u0e25\u0e49\u0e32\u0e19’,mSTTHAI+”)
\nELSE
\nIF mCHNUM=’1′
\nIF (mCNT=4.AND.LEN(LTRIM(mSTNUM))#9).OR.(mCNT=10.AND.LEN(LTRIM(mSTNUM))#3)
\nmSTTHAI=mSTTHAI+’\u0e40\u0e2d\u0e47\u0e14’
\nELSE
\nIF .NOT.(mCNT=3.OR.mCNT=9)
\nmSTTHAI=mSTTHAI+mTCH(VAL(mCHNUM))
\nENDIF
\nENDIF
\nELSE
\nIF mCHNUM=’2′.AND.(mCNT=3.OR.mCNT=9)
\nmSTTHAI=mSTTHAI+’\u0e22\u0e35\u0e48’
\nELSE
\nmSTTHAI=mSTTHAI+mTCH(VAL(mCHNUM))
\nENDIF
\nENDIF
\nmSTTHAI=mSTTHAI+mTDEC(mCNT)
\nENDIF
\nENDIF
\nmCNT=mCNT+1
\nENDDO
\nmSTTHAI=mSTTHAI+’\u0e1a\u0e32\u0e17’
\nIF SUBSTR(mSTNUM,11,2)=’00’
\nmSTTHAI=mSTTHAI+’\u0e16\u0e49\u0e27\u0e19’
\nELSE
\nmCHNUM=SUBSTR(mSTNUM,11,1)
\nIF mCHNUM#’0′
\nIF mCHNUM#’1′
\nIF mCHNUM=’2′
\nmSTTHAI=mSTTHAI+’\u0e22\u0e35\u0e48’
\nELSE
\nmSTTHAI=mSTTHAI+mTCH(VAL(mCHNUM))
\nENDIF
\nENDIF
\nmSTTHAI=mSTTHAI+mTDEC(9)
\nENDIF
\nmCHNUM=SUBSTR(mSTNUM,12,1)
\nIF mCHNUM#’0′
\nIF mCHNUM=’1′.AND.SUBSTR(mSTNUM,11,1)#’0′
\nmSTTHAI=mSTTHAI+’\u0e40\u0e2d\u0e47\u0e14’
\nELSE
\nmSTTHAI=mSTTHAI+mTCH(VAL(mCHNUM))
\nENDIF
\nENDIF
\nmSTTHAI=mSTTHAI+’\u0e2a\u0e15\u0e32\u0e07\u0e04\u0e4c’
\nENDIF
\nRETU mSTTHAI<\/p>\n

* —TSCDOW.PRG
\n* —\u0e1c\u0e39\u0e49\u0e40\u0e02\u0e35\u0e22\u0e19…….. Kasem K.
\n* —\u0e27\u0e31\u0e19\u0e41\u0e01\u0e49\u0e44\u0e02……. 12.08.92
\n*– \u0e19\u0e33\u0e44\u0e1b\u0e43\u0e0a\u0e49…… cDayofWeek=TSCDOW(DATE())
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…. ROUTINE \u0e43\u0e2b\u0e49\u0e04\u0e48\u0e32\u0e0a\u0e37\u0e48\u0e2d\u0e27\u0e31\u0e19\u0e44\u0e17\u0e22\u0e41\u0e1a\u0e1a\u0e22\u0e48\u0e2d
\nFUNCTION TSCDOW
\nPARA mdtm
\nmdtnm=DOW(mdtm)
\nmcdm=SUBST(‘\u0e2d\u0e32\u0e08.\u0e2d.\u0e1e.\u0e1e\u0e24\u0e28.\u0e2a.’,2*mdtnm-1,2)
\nRETU (mcdm)<\/p>\n

*—————————————-
\n* \u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21 : MLOGIC.PRG
\n* \u0e40\u0e02\u0e35\u0e48\u0e22\u0e42\u0e14\u0e22 : \u0e1e\u0e13\u0e2f \u0e40\u0e01\u0e29\u0e21
\n* \u0e2a\u0e23\u0e49\u0e32\u0e07 : 01\/09\/92
\n* \u0e21\u0e31\u0e19\u0e04\u0e37\u0e2d : GAME \u0e43\u0e0a\u0e49\u0e1d\u0e36\u0e01\u0e2a\u0e21\u0e2d\u0e07 \u0e21\u0e19\u0e38\u0e29\u0e22\u0e4c\u0e40\u0e2b\u0e25\u0e47\u0e01 2022
\n* \u0e2a\u0e31\u0e0d\u0e25\u0e31\u0e01\u0e29\u0e13\u0e4c : C=\u0e16\u0e39\u0e01\u0e2a\u0e35 , P = \u0e16\u0e39\u0e01\u0e15\u0e33\u0e41\u0e2b\u0e19\u0e48\u0e07
\n*—————————————-
\nPROCEDURE MLOGIC
\nDECL S(5),X(5)
\nDEFI WIND MLOGIC FROM 1,10 TO 21,45;
\nTITLE “MASTER LOGIC” FOOT “ESC – EXIT”;
\nGROW SYSTEM ZOOM COLO N\/BG,N\/BR,B+\/W
\nACTI WIND MLOGIC
\nDO WHIL .T.
\nCLEA
\nSTOR .F. TO FLAG
\nSTOR 0 TO S(1),S(2),S(3),S(4),S(5)
\nSTOR 0 TO L,POSI,COLF
\nSTOR 0 TO SCORE
\nSTOR ” TO Q_A
\n@0,1 SAY ‘SELECT : ‘ COLO 5+\/3
\n@2,0 SAY ‘C P’ COLO 2+\/3
\n@2,4 TO 2,22
\n@0,24 TO 9,32
\n@1,25 SAY ‘LEGENT’ COLO 6+\/3
\n@2,25 SAY ‘1’
\n@2,28 SAY ‘ ‘ COLO \/1
\n@3,25 SAY ‘2’
\n@3,28 SAY ‘ ‘ COLO \/2
\n@4,25 SAY ‘3’
\n@4,28 SAY ‘ ‘ COLO \/3
\n@5,25 SAY ‘4’
\n@5,28 SAY ‘ ‘ COLO \/4
\n@6,25 SAY ‘5’
\n@6,28 SAY ‘ ‘ COLO \/5
\n@7,25 SAY ‘6’
\n@7,28 SAY ‘ ‘ COLO \/6
\n@8,25 SAY ‘7’
\n@8,28 SAY ‘ ‘ COLO \/7
\n@10,24 TO 13,32
\n@11,25 SAY ‘SCORE’
\nDO WHIL SCORE < 15
\nIF SCORE=0
\nFOR I = 1 TO 5
\nSTOR STR(INT(RAN(1,8)),1) TO X(I)
\nQ_A=Q_A+X(I)
\nNEXT
\n@ 3,0 SAY ‘=>’ COLO 0\/3
\nELSE
\n@ 3+SCORE-1,1 SAY ‘ ‘
\n@ 3+SCORE,0 SAY ‘=>’ COLO 0\/3
\nENDIF
\n@1, 6 GET S(1) PICT’@Z 9′ RANG 1,7 COLO ,7+;
\nVALID(SAYCOL(S(1),1,6) .AND.SAYCOL(S(1),3+L,6 ))
\n@1,10 GET S(2) PICT’@Z 9′ RANG 1,7 COLO ,7+;
\nVALID(SAYCOL(S(2),1,10).AND.SAYCOL(S(2),3+L,10))
\n@1,14 GET S(3) PICT’@Z 9′ RANG 1,7 COLO ,7+;
\nVALID(SAYCOL(S(3),1,14).AND.SAYCOL(S(3),3+L,14))
\n@1,18 GET S(4) PICT’@Z 9′ RANG 1,7 COLO ,7+;
\nVALID(SAYCOL(S(4),1,18).AND.SAYCOL(S(4),3+L,18))
\n@1,22 GET S(5) PICT’@Z 9′ RANG 1,7 COLO ,7+;
\nVALID(SAYCOL(S(5),1,22).AND.SAYCOL(S(5),3+L,22))
\nREAD
\nmKEY=READK()
\nDO CASE
\nCASE mKEY=12.OR.mKEY=268
\nFLAG=.T.
\nEXIT
\nENDCASE
\n* PROCESS
\nSTOR 0 TO POSI,COLF
\nFOR I = 1 TO 5
\nIF STR(S(I),1)=X(I)
\nPOSI=POSI+1
\nENDIF
\nIF STR(S(I),1)$Q_A
\nCOLF=COLF+1
\nENDIF
\nNEXT
\nIF POSI=5
\nSCORE=SCORE+1
\n@ 12,27 SAY SCORE PICT ‘@Z 99’
\nTEMP=WARNN(‘ YOU HAVE A WINNER ! ‘,10)
\nEXIT
\nENDIF
\n* END PROCESS
\nSCORE = SCORE+1
\n@ 3+L,0 SAY COLF PICT ‘9’ &&COLO 7+\/3
\n@ 3+L,2 SAY POSI PICT ‘9’ &&COLO 7+\/3
\n@ 12,27 SAY SCORE PICT ‘@Z 99’
\nL = L +1
\nENDDO
\nIF FLAG
\nEXIT
\nENDIF
\nIF POSI#5
\nDEFI WIND IWIN FROM 7,1 TO 12,29;
\nTITLE “o REPLY BOX o” GROW SYSTEM ZOOM COLO N\/N,N\/BR,B+\/W
\nACTI WIND IWIN
\n@0,1 TO 4,25
\n@1, 4 SAY ‘ ‘+X(1)+’ ‘ COLO 7+\/&X(1)
\n@1, 8 SAY ‘ ‘+X(2)+’ ‘ COLO 7+\/&X(2)
\n@1,12 SAY ‘ ‘+X(3)+’ ‘ COLO 7+\/&X(3)
\n@1,16 SAY ‘ ‘+X(4)+’ ‘ COLO 7+\/&X(4)
\n@1,20 SAY ‘ ‘+X(5)+’ ‘ COLO 7+\/&X(5)
\n@2, 4 SAY ‘ ‘ COLO \/&X(1)
\n@2, 8 SAY ‘ ‘ COLO \/&X(2)
\n@2,12 SAY ‘ ‘ COLO \/&X(3)
\n@2,16 SAY ‘ ‘ COLO \/&X(4)
\n@2,20 SAY ‘ ‘ COLO \/&X(5)
\nTEMP=WARNN(‘ I WINNER !!! ‘,10)
\nRELE WIND IWIN
\nENDIF
\nENDDO
\nRELE WIND MLOGIC
\nRETU<\/p>\n

FUNCTION SAYCOL
\nPARA SEL,ROW,COLX
\nCSEL=STR(SEL,1)
\n@ROW,COLX-2 SAY ‘ ‘+CSEL COLO &CSEL+\/&CSEL,\/&CSEL
\nRETU .T.<\/p>\n

* —RAN.PRG
\n* —\u0e1c\u0e39\u0e49\u0e40\u0e02\u0e35\u0e22\u0e19…… Kasem K.
\n* —\u0e41\u0e01\u0e49\u0e44\u0e02\u0e25\u0e48\u0e32\u0e2a\u0e38\u0e14… 17\/09\/92
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…. \u0e23\u0e39\u0e17\u0e35\u0e19\u0e2a\u0e23\u0e49\u0e32\u0e07\u0e15\u0e31\u0e27\u0e40\u0e25\u0e02\u0e2a\u0e38\u0e48\u0e21\u0e23\u0e30\u0e2b\u0e27\u0e48\u0e32\u0e07\u0e0a\u0e48\u0e27\u0e07
\nFUNCTION RAN
\nPARA RA,RB
\nRETU (RB-RA)*RAND()+RA<\/p>\n

*!*********************************************************************
\n*!
\n*! Procedure: WARNN
\n*!
\n*!*********************************************************************
\nPROCEDURE warnn
\nPARA mmsg,mtime
\n*SET COLO OF SCHE 9 TO N\/BG,N\/RB,RG\/W
\nmlen=lcut(mmsg)
\nmmsg=’\u0010 ‘+REPL(‘ ‘,LEN(mmsg)-mlen)+mmsg+’ \u0011’
\nDEFI WIND warnn FROM 19,4 TO 21,LEN(mmsg)+5 SYST ;
\nSHAD FLOAT NOZOOM COLO SCHE 9
\nACTI WIND warnn
\n*@23,40-(mLEN\/2) SAY mMSG
\n@0,0 SAY mmsg
\n??CHR(7)
\ni=INKEY(mtime)
\n*@23,40-(mLEN\/2) SAY SPAC(LEN(mMSG))
\nRELE WIND warnn
\nRETU<\/p>\n

&& \u0e16\u0e49\u0e32\u0e04\u0e38\u0e13\u0e21\u0e35\u0e1b\u0e31\u0e0d\u0e2b\u0e32\u0e40\u0e01\u0e35\u0e48\u0e22\u0e27\u0e01\u0e31\u0e1a\u0e01\u0e32\u0e23\u0e08\u0e31\u0e14\u0e40\u0e23\u0e35\u0e22\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e20\u0e32\u0e29\u0e32\u0e44\u0e17\u0e22\u0e15\u0e49\u0e2d\u0e07\u0e2d\u0e31\u0e19\u0e19\u0e35\u0e49<\/p>\n

Download ITHAI.PRG<\/strong><\/u><\/span><\/a>
\n* —ITHAI.PRG
\n* —\u0e41\u0e01\u0e49\u0e44\u0e02\u0e25\u0e48\u0e32\u0e2a\u0e38\u0e14… 06\/02\/35
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…. ROUTINE FUNCTION INDEX THAI LANGUAGE
\n* \u0e01\u0e32\u0e23\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\u0e19\u0e31\u0e49\u0e19\u0e43\u0e0a\u0e49\u0e15\u0e2d\u0e19 index on ithai(name) tag sortthai\u00a0 && \u0e16\u0e49\u0e32\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e40\u0e22\u0e2d\u0e30\u0e46\u0e0a\u0e49\u0e32\u0e04\u0e23\u0e31\u0e1a
\n* \u0e02\u0e2d\u0e41\u0e19\u0e30\u0e19\u0e33\u0e43\u0e2b\u0e49\u0e17\u0e33\u0e01\u0e32\u0e23\u0e2a\u0e23\u0e49\u0e32\u0e07 filed \u0e40\u0e1e\u0e34\u0e48\u0e21\u0e2d\u0e35\u0e01 1 \u0e1f\u0e34\u0e25\u0e14\u0e4c\u0e2a\u0e21\u0e21\u0e38\u0e15\u0e34\u0e0a\u0e37\u0e48\u0e2d sortname \u00a0 \u0e15\u0e2d\u0e19\u0e1b\u0e23\u0e31\u0e1a\u0e1b\u0e23\u0e38\u0e07\u0e1f\u0e34\u0e25\u0e14\u0e4c\u0e19\u0e31\u0e49\u0e19\u0e43\u0e2b\u0e49\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07
\n*\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 REPLACE SORTNAME WITH ITHAI(NAME) \u0e27\u0e34\u0e18\u0e35\u0e19\u0e35\u0e49\u0e04\u0e38\u0e13\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e19\u0e33\u0e1f\u0e34\u0e25\u0e14\u0e4c\u0e44\u0e1b\u0e43\u0e0a\u0e49\u0e43\u0e19\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07 SQL \u0e44\u0e14\u0e49\u0e14\u0e49\u0e27\u0e22
\nFUNCTION ithai
\nPARA str0
\nmstr=TRIM(str0)+’ ‘
\nmlen=LEN(mstr)
\nIF mlen<=1
\nRETU mstr
\nENDIF
\nmcnt=1
\nDO WHIL mcnt<=mlen
\nmchr=SUBSTR(mstr,mcnt,1)
\nIF mchr$’\u0e40\u0e41\u0e42\u0e44\u0e43’
\nmstr=LEFT(mstr,mcnt-1)+SUBSTR(mstr,mcnt+1,1)+SUBSTR(mstr,mcnt,1)+RIGHT(mstr,mlen-(mcnt+1))
\nmcnt=mcnt+1
\nENDIF
\nmcnt=mcnt+1
\nENDDO
\nmcnt=1
\nDO WHIL mcnt<=mlen
\nmchr=SUBSTR(mstr,mcnt,1)
\nIF mchr$’\u0e48\u0e49\u0e4a\u0e4b\u0e47’
\nmstr=LEFT(mstr,mcnt-1)+SUBSTR(mstr,mcnt+1,1)+SUBSTR(mstr,mcnt,1)+RIGHT(mstr,mlen-(mcnt+1))
\nmcnt=mcnt+1
\nENDIF
\nmcnt=mcnt+1
\nENDDO
\nRETU mstr<\/p>\n

* —LCUT.PRG
\n* —\u0e41\u0e01\u0e49\u0e44\u0e02\u0e25\u0e48\u0e32\u0e2a\u0e38\u0e14… 02\/09\/34
\n* —\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21…. ROUTINE \u0e19\u0e31\u0e1a\u0e04\u0e27\u0e32\u0e21\u0e22\u0e32\u0e27\u0e42\u0e14\u0e22\u0e15\u0e31\u0e14\u0e2d\u0e31\u0e01\u0e02\u0e23\u0e30\u0e1a\u0e19\u0e25\u0e48\u0e32\u0e07
\n*!*********************************************************************
\n*!
\n*! Procedure: LCUT
\n*!
\n*!*********************************************************************
\nFUNCTION lcut
\nPARA mstr
\ncnt0 = 1
\ncnt00 = 0
\nDO WHIL cnt0 <= LEN(mstr)
\nIF SUBS(mstr,cnt0,1) $ ‘\u0e38\u0e39\u0e34\u0e35\u0e36\u0e37\u0e31\u0e4c\u0e48\u0e49\u0e4a\u0e4b\u0e47’
\ncnt00 = cnt00 + 1
\nENDIF
\ncnt0 = cnt0 + 1
\nENDDO
\nRETU (LEN(mstr) – cnt00)<\/p>\n

*!*********************************************************************
\n*!
\n*! Procedure: STIFF
\n*!
\n*!*********************************************************************
\nFUNCTION stiff
\nPARA ma,mb
\nmb=TRIM(LTRIM(mb))
\nmt=LEFT(ma,LEN(ma)-LEN(mb))+mb
\nRETU mt<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"

\u0e2d\u0e30\u0e44\u0e23\u0e40\u0e2d\u0e48\u0e22\u0e40\u0e02\u0e35\u0e22\u0e19\u0e04\u0e23\u0e31\u0e49\u0e07\u0e40\u0e14\u0e35\u0e22\u0e27\u0e41\u0e15\u0e48\u0e43\u0e0a\u0e49\u0e1a\u0e48\u0e2d\u0e22? \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e04\u0e37\u0e2d\u0e2d\u0e30\u0e44\u0e23? \u0e16\u0e49\u0e32\u0e16\u0e32\u0e21\u0e1c\u0e21 \u0e1c\u0e21\u0e1a\u0e2d\u0e01\u0e44\u0e14\u0e49\u0e40\u0e25\u0e22\u0e27\u0e48\u0e32\u0e21\u0e31\u0e19\u0e01\u0e47\u0e04\u0e37\u0e2d\u0e04\u0e33\u0e2a\u0e31\u0e48\u0e07\u0e1b\u0e23\u0e30\u0e40\u0e20\u0e17\u0e2b\u0e19\u0e36\u0e48\u0e07\u0e40\u0e17\u0e48\u0e32\u0e19\u0e31\u0e49\u0e19\u0e40\u0e2d\u0e07 \u0e43\u0e04\u0e23\u0e17\u0e23\u0e32\u0e1a\u0e04\u0e27\u0e32\u0e21\u0e2b\u0e21\u0e32\u0e22\u0e22\u0e32\u0e27\u0e46\u0e1a\u0e2d\u0e01\u0e14\u0e49\u0e27\u0e22 \u0e23\u0e39\u0e49\u0e41\u0e15\u0e48\u0e43\u0e0a\u0e49\u0e40\u0e17\u0e48\u0e32\u0e19\u0e31\u0e49\u0e19\u0e40\u0e2d\u0e07\u0e41\u0e15\u0e48\u0e17\u0e35\u0e48\u0e41\u0e19\u0e48\u0e19\u0e46\u0e21\u0e31\u0e19\u0e17\u0e33\u0e43\u0e2b\u0e49\u0e1c\u0e39\u0e49\u0e43\u0e0a\u0e49\u0e17\u0e33\u0e07\u0e32\u0e19\u0e07\u0e48\u0e32\u0e22\u0e02\u0e36\u0e49\u0e19 \u0e41\u0e15\u0e48\u0e04\u0e19\u0e40\u0e02\u0e35\u0e22\u0e19\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e1a\u0e32\u0e07\u0e17\u0e35\u0e01\u0e47\u0e44\u0e21\u0e48\u0e07\u0e48\u0e32\u0e22\u0e19\u0e30\u0e04\u0e23\u0e31\u0e1a \u0e43\u0e19 Visual FoxPro \u0e21\u0e35\u0e1b\u0e23\u0e30\u0e40\u0e20\u0e17\u0e02\u0e2d\u0e07\u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e2d\u0e22\u0e39\u0e48 2 \u0e0a\u0e19\u0e34\u0e14\u0e14\u0e49\u0e27\u0e22\u0e01\u0e31\u0e19 1. \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e17\u0e35\u0e48\u0e21\u0e32\u0e01\u0e31\u0e1a\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21 (Visual FoxPro function) 2. \u0e1f\u0e31\u0e07\u0e01\u0e4c\u0e0a\u0e31\u0e19\u0e17\u0e35\u0e48\u0e1c\u0e39\u0e49\u0e43\u0e0a\u0e49\u0e01\u0e33\u0e2b\u0e19\u0e14\u0e40\u0e2d\u0e07 (user-defined function (UDF))<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[13],"tags":[],"class_list":["post-25393","post","type-post","status-publish","format-standard","hentry","category-13"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p6cOVM-6Bz","_links":{"self":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts\/25393","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=25393"}],"version-history":[{"count":1,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts\/25393\/revisions"}],"predecessor-version":[{"id":25394,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=\/wp\/v2\/posts\/25393\/revisions\/25394"}],"wp:attachment":[{"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=25393"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=25393"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/tom.tomwork.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=25393"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}