简易记事本代码

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

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

DimiAsLong,h声此品含头苦一s()AsString

医国细i=0

ReDimhs(0)

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

DoWhileNotEOF(1)

ReDimPreservehs(i)

LineInput#1,hs(i)

i=i+1

Loop

Close#1

'以处年便备待烈汉松定没下是写记事本代码：

d映末轴至难阶斤模imfilenameasstring

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

Close#1

标签：记事本,简易,代码