Hi tất cả các bạn,
Trong khi đợi Yang post cách lấy games trên 01xq.com về làm thành file PGN thì mình hướng dẫn mọi người cách lấy games trên 01xq.com về xem trên máy nhà như cách lấy games trên CXQ.
Nếu bạn ấn phải chuột vào bàn cờ của 01xq.com bạn sẽ thấy một đoạn tương tự như thế này:
[DHJHtmlXQ_34]724219277062775780707967232466651216394810222947164657522234093946063934001017131013270613163424160689797079677906042404030479675041525143446755444555636243515345465383433583853516857546476947162849392847262504052524050624234726757726457770415063443041233342127073204273434524442512152546061646542445434415655473656939384526383769683332264537474564473716263231263637476866735466764464426454336442[/DHJHtmlXQ_34]
Chuỗi số nằm giữa hai ngoặc vuông [DHJHtmlXQ_34] và [/DHJHtmlXQ_34] ở trên chính là toàn bộ nước đi của ván cờ (move), cứ 4 số là một move, ghi theo kiểu tọa độ xuất phát + tọa độ đến.
Tọa độ bàn cờ của 01xq.com quy định như sau:
Hàng ngang, từ trái sang phải đánh số từ 0 đến 8.
Hàng dọc, từ dưới lên, đánh số từ 0 đến 9.
Như vậy, vị trí của xe đỏ cánh trái là 00, mã bên cạnh là 10, tượng 20, sỹ 30 … cho đến xe góc phải là 80 … tương tự tốt 5 là 40 (ghi tọa độ hàng ngang trước, hàng dọc sau).
Hiểu được cách quy định trên thì xem lại chuỗi số trên cũng không khó lắm, ví dụ 4 số đầu tiên ở trên là 7242 là quân ở vị trí 72(pháo 2) đi đến ô 42 (bình 5), đối phương đáp lại là quân ở vị trí 19 (mã 2) đi tới ô 27 (tiến 3) …v.v
Việc còn lại là phải chuyển chuỗi trên sang ký hiệu ICCS hay WXF.
Có một cách đơn giản là dùng Microsoft Excel mà ai máy ai cũng có để chuyển chuỗi trên thành định dạng ICCS, rồi dán (paste) vào file index.html mà mình đã nói cách làm ở trang 106.
Trước hết bạn dùng notepad copy đoạn code sau:
Function myformat(ByVal mystring As String) As String
Dim i As Long
For i = 1 To Len(mystring) Step 4
s0 = Mid(mystring, i, 4)
s1 = Mid(s0, 1, 1)
Select Case s1
Case "0"
pn1 = "A"
Case "1"
pn1 = "B"
Case "2"
pn1 = "C"
Case "3"
pn1 = "D"
Case "4"
pn1 = "E"
Case "5"
pn1 = "F"
Case "6"
pn1 = "G"
Case "7"
pn1 = "H"
Case "8"
pn1 = "I"
End Select
s2 = Replace(s0, s1, pn1, 1, 1)
s3 = Mid(s2, 3, 1)
Select Case s3
Case "0"
pn2 = "A"
Case "1"
pn2 = "B"
Case "2"
pn2 = "C"
Case "3"
pn2 = "D"
Case "4"
pn2 = "E"
Case "5"
pn2 = "F"
Case "6"
pn2 = "G"
Case "7"
pn2 = "H"
Case "8"
pn2 = "I"
End Select
s4 = Replace(s2, s3, pn2, 1, 1)
myformat = myformat & s4 & " ,"
Next
myformat = Trim(myformat)
End Function
Sau đó mở excel lên, ấn Alt+F11, chọn menu Insert, chọn module, copy đoạn mã trên và dán vào cửa sổ lệnh.
Lưu file excel lại dưới một tên nào đó. Khi lưu file nhớ chọn loại file file hỗ trợ enable macro từ danh sách liệt kê loại file lưu.
Sau đó copy đoạn chuỗi số nước đi vào ô A1
Chọn ô A2, gõ dấu = và gõ myformat(A1)
Sau khi bạn ấn Enter bạn sẽ có kết quả của ô A2 tương tự như sau:
H2E2 ,B9C7 ,H0G2 ,H7F7 ,I0H0 ,H9G7 ,C3C4 ,GG65 ,B2B6 ,D9E8 ,B0C2 ,C9E7 ,B6E6 ,F7F2 ,C2D4 ,A9D9 ,E6A6 ,D9D4 ,A0B0 ,B7B3 ,B0B3 ,C7A6 ,B3B6 ,D4C4 ,B6A6 ,I9H9 ,H0H9 ,GH79 ,A6A4 ,C4A4 ,A3A4 ,H9G7 ,F0E1 ,F2F1 ,E3E4 ,G7F5 ,EE45 ,F5G3 ,G2E3 ,F1F3 ,E5E6 ,F3I3 ,ED35 ,I3I5 ,D5B6 ,I5H5 ,E6E7 ,G9E7 ,B6C8 ,E9D9 ,C8E7 ,C6C5 ,A4A5 ,C5C4 ,A5A6 ,C4C3 ,E7C6 ,H5H7 ,C6E5 ,HH70 ,E1F0 ,G3E4 ,D0E1 ,CD33 ,E2B2 ,H0H3 ,C0E2 ,H3E3 ,E5C4 ,E4C5 ,B2B5 ,C5E6 ,A6B6 ,E6F4 ,CE45 ,E3E4 ,B5G5 ,F4H3 ,G5G9 ,D9D8 ,E5C6 ,D8D7 ,G9G8 ,DD32 ,C6E5 ,D7E7 ,E5G4 ,E7D7 ,B6C6 ,D2D1 ,C6D6 ,D7E7 ,G8G6 ,H3F4 ,G6H6 ,E4G4 ,E2G4 ,F4D3 ,GE42 ,
Đến đây thì copy chuỗi ở ô A2 đó vào file index.html đã hướng dẫn ở trang 106.
Các bạn thử xem nhé, mình dùng Office 2007 nhưng Office XP hay 2003 cũng tương tự.
Chúc các bạn vui.
thi con "khủng khiếp" của alex + 4u cung thua 8u + open tay. đúng không alex ?? 
