¿´µ½Ò»¸öºÜ²»´íµÄvb.net´úÂ룬Ïëת»»³Évb£¬×Ô¼ºµ÷ÊÔÁ˺ܶàÌ죬µ«ÊÇ»¹ÊÇûÓÃŪºÃ£¬ÉõΪÓôÃÆ¡£ºóÀ´¼ÌÐøËÑË÷ÕÒµ½ÁËÆäÏàÓ¦µÄc,c#ºÍjscript´úÂ룬µ«ÊǾÍÊÇûÓÐÕÒµ½¹ØÓÚvbÏà¹Ø·½ÃæµÄ´úÂë¡£×Ô¼º¸ã²»¶¨Ö»ÓÐÄõ½ÕâÀïÀ´Ïò¸÷λÇë½ÌÁË£¬Ð»Ð»¡£
ÏÂÃæÁгövb.net´úÂ룬һ¸öÀàÎļþ¡£
Public Class JSDecoder
Private Const STATE_COPY_INPUT = 100
Private Const STATE_READLEN = 101
Private Const STATE_DECODE = 102
Private Const STATE_UNESCAPE = 103
Private Pick_Encoding, rawData As Integer()
Private Transformed(2, 287), Digits(122) As Integer
Public Sub New()
InitArrayData()
End Sub
Private Sub InitArrayData()
Dim i, j As Integer
Pick_Encoding = New Integer() { _
1, 2, 0, 1, 2, 0, 2, 0, 0, 2, 0, 2, 1, 0, 2, 0, _
1, 0, 2, 0, 1, 1, 2, 0, 0, 2, 1, 0, 2, 0, 0, 2, _
1, 1, 0, 2, 0, 2, 0, 1, 0, 1, 1, 2, 0, 1, 0, 2, _
1, 0, 2, 0, 1, 1, 2, 0, 0, 1, 1, 2, 0, 1, 0, 2 _
}
rawData = New Integer() { _
&H64, &H37, &H69, &
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд .....
¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......