简易记事本代码

简易记事本代码

问题补充说明：VB简易记事本代码

'以下是读记事本代码，读取后的数据存储在数组hs()中：

DimiAsLong,hs()AsStr来自ing

i=0

ReDimhs(0)

OpenApp.Path&"\1.txt"ForInputAs#1

DoWhileNo360问答tEOF(1)

ReDimPreservehs(i)

LineInput#1,hs(i)

i=i+1

Loop

Close#1

'以下是写记事本代码：

dimfilenameasstring

filename="这是第一行"&chr(13)&chr(10)&"这是第二行"&chr(13)&chr(10)&"这是第三行"&chr(13)&chr(10)

OpenApp.Path&"\2.txt"ForOutputAs#1

Seek#1,1

Print#1,慢差百filename

C放阻另值早底伯沙举剧lose#1