Z zouming Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-20 #1 文本文件中， 1、换行符、回车符是什么？ 2、如何在特定的位置插入删除换行符、回车符？ 3、如何读取文本文件中换行符和换行符之间、换行符和回符之间的文本？
N netkk Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-20 #2 chr(12)换面 chr(13)回车 CHR（10）换行
I Iknow Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-20 #6 ASCII文本文件中, <32(空格)的都是控制字符, 具体含义可以参考ASCII字符集. 找本讲汇编的书就有了. 一般常用的有: ASCII 助记符 含义 --------------------------------- $0D CR 回车(应该理解为光标会到行首,但不下移一行) $0A LF 换行(应该理解为光标下移一行,但不回到行首) $09 tab 制表位(光标移到下一制表位) $07 bell 响铃(PC喇叭叫一声) $1B ESC 转意符,类似C中的'/' $0C PF 换页(光标移到下页开始) $08 BS 退格(Backspace,光标回退一格) $1A EOF 文件结束标志(End Of File) 另外, 在DOS下输入ctrl+A~Z可以输入控制字符$01~$1A, A=1, B=2, ...
ASCII文本文件中, <32(空格)的都是控制字符, 具体含义可以参考ASCII字符集. 找本讲汇编的书就有了. 一般常用的有: ASCII 助记符 含义 --------------------------------- $0D CR 回车(应该理解为光标会到行首,但不下移一行) $0A LF 换行(应该理解为光标下移一行,但不回到行首) $09 tab 制表位(光标移到下一制表位) $07 bell 响铃(PC喇叭叫一声) $1B ESC 转意符,类似C中的'/' $0C PF 换页(光标移到下页开始) $08 BS 退格(Backspace,光标回退一格) $1A EOF 文件结束标志(End Of File) 另外, 在DOS下输入ctrl+A~Z可以输入控制字符$01~$1A, A=1, B=2, ...
I Iknow Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-20 #7 继续回答... 3、如何读取文本文件中换行符和换行符之间、换行符和回符之间的文本？ 回车换行符本身一般不能在文本文件方式下读取, 可以将文件用二进制文件方式(无类型文件) 打开,但如果仅关心二者之间的文字, 可以用readln函数读取; >2、如何在特定的位置插入删除换行符、回车符？ 一般来说, 文本文件不直接插入回车换行符, 而是通过writeln(f);的方式在当前位置(通常是 文件尾)由系统写一个回车换行, 而删除通常无法直接由一个文本文件实现, 一种是 采用两个文本文件倒一下的办法, 如: readln(f, s) write(f2, s); 或者将文件当成二进制文件(无类型文件file),然后可以将回车换行替换成字符$20(空格)
继续回答... 3、如何读取文本文件中换行符和换行符之间、换行符和回符之间的文本？ 回车换行符本身一般不能在文本文件方式下读取, 可以将文件用二进制文件方式(无类型文件) 打开,但如果仅关心二者之间的文字, 可以用readln函数读取; >2、如何在特定的位置插入删除换行符、回车符？ 一般来说, 文本文件不直接插入回车换行符, 而是通过writeln(f);的方式在当前位置(通常是 文件尾)由系统写一个回车换行, 而删除通常无法直接由一个文本文件实现, 一种是 采用两个文本文件倒一下的办法, 如: readln(f, s) write(f2, s); 或者将文件当成二进制文件(无类型文件file),然后可以将回车换行替换成字符$20(空格)
C ctx62 Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-20 #8 我也来几句废话，在文本录入过程中若想输入ascii码可按住Alt键然后在小键盘上直接 输入ascii码值即可
C cropcoco Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-20 #9 #13#10 将回车换行符当作字符串处理 用Insert(Source: string var S: string Index: Integer);插入 用Delete(var S: string Index, Count:Integer);删除 用Pos(Substr: string S: string): Integer;查找 用Copy(S Index, Count: Integer): string;取出字符串
#13#10 将回车换行符当作字符串处理 用Insert(Source: string var S: string Index: Integer);插入 用Delete(var S: string Index, Count:Integer);删除 用Pos(Substr: string S: string): Integer;查找 用Copy(S Index, Count: Integer): string;取出字符串
