用random打开文件，无法准确定位和修改.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 20 行

你 的 文 件 不 能 用 随 机 方 式 读 写 ， 因 为 不 是 所 有 行 都 等 长 。 只 能 以 顺 序 方 式 读 写 ： 
    Open file1 For Input As #1 
    Open file2 For Output As #2 
    Do While Not Eof(1) 
     Line Input #1, s 
     Print #2, s 
     If Let(s, 1) = "二 " Then 
     Line Input #1, s 
     Print #2, s 
     ' 假 定 修 改 第 一 行 
     Line Input #1, s 
     ' 假 定 修 改 电 阻 参 数 
     s= Left(s, 17) + Format(22.5, "#########.0000") + Mid(s, ....) 
     Print #2, s 
     End If 
    Loop 
    Close #1 
    Close #2 
<END>