2013-04-17 134 views
0

我試圖找到新的行字符的文件,並保持它的軌道與反到目前爲止,我已經我似乎無法找出方案

SRCF換行符匹配字符是源文件

(if(equal? (peek-char srcf) (#\newline)) 

    (begin 

    (read-char srcf) 
    (Lines srcf (+ Line 1)) 
) 

    (begin 

    (read-char srcf) 
    (Lines srcf Line)      
) 
) 

但是我知道我的平等嗎? (偷看)(#\換行符)不工作是否有我可以用於換行符的字符?

回答

1

確切的字符取決於文件中使用的換行符,它可能是\n(這是Unix/Mac中的文件的標準)或\r\n(通常在Windows中可以找到)。對於初學者來說,嘗試對#\newline比較,看看它是否適合你:

(equal? (peek-char srcf) #\newline) 

...注意#\newline用括號包圍了!

+1

謝謝你的工作解決了我的問題 –