#Microsoft #Office https://github.com/duangsuse/Share/blob/master/Word0.vb

为了帮老师输入作文比赛的作文单子写了个 Word VisualBasic 宏，对 Basic 的怀旧肃然起敬....

https://github.com/duangsuse/Share/blob/master/Word0.vb#L41

我专门弄了个 Lexer-like 扫描算法扫描自己的文本字符串输入...

其中有一个循环，我后来发现是自己错了 #fix #Basic #Algorithm

本来因为我不知道 Basic 滋不资磁 continue; 所以就弄了个 Dim doNext As Boolean

后来如你们所见，doNext 是个死变量，没有被读取

是因为我在使用的时候发现它（跳过空白行和注释行的时候）会导致跳完所有空白注释之后直接结束处理，调试结果居然让我的木头脑袋百思不得其姐（跑


后来我发现是因为我没有重置这个变量（这样一次 skipThis, 后面全都 skip 掉了.... 实际上只是 skip 掉 "This" loop 而已）.... 记下教训，这种丢脸的事情... 😭
希望以后不要发生了....

Open "foo.txt" For Input As #1

Dim line As String
Dim skipThis As Boolean
skipThis = False

While Not Eof(1)
skipThis = False '!!!! Add this
Line Input #1, line
If IsBlankOrComment(line) Then
skipThis = True
End If

If Not skipThis Then
...
'' Or （好像跳两下了...）
'Else
' skipThis = False
End If
Wend

Close #1