[問題]亂碼還原

版主: 總版面管理員

回覆文章
風之痕
會員
會員
文章: 118
註冊時間: 2005-05-19 6:10 PM

[問題]亂碼還原

文章 風之痕 »

今天因為好奇,所以我就把〝要〞這個字拆成173和110這兩個chr值
然後我就打了一行PRINT CHR$(173)+CHR$(110)
結果成功的顯示出〝要〞這個字
然後我就起了一個小小的白痴唸頭
「要是我把他用來玩PEEK勒?」然後我就寫了幾行程式碼
想把PEEK看起來像亂碼的東西還原
10 FOR I=1 TO 65532
20 A$=(CHR$(PEEK (I))+CHR$(PEEK (I+1))+CHR$(PEEK (I+2))+CHR$(PEEK (I+3)))
30 IF LEN(A$)<3 THEN PRINT A$;:I=I+4
50 B$=(CHR$(PEEK (I))+CHR$(PEEK (I+1))+CHR$(PEEK (I+2)))
60 IF LEN(B$)<3 THEN PRINT B$;:I=I+3
70 C$=(CHR$(PEEK (I))+CHR$(PEEK (I+1)))
80 IF LEN(C$)<3 THEN PRINT C$;:I=I+2
90 PRINT CHR$(PEEK (I));
100 NEXT I
打完後一執行,沒想到原本看起來像亂碼的PEEK更像亂碼了
請問是我程式有問題,還是他本身就無法還原?
回覆文章