...= S1 & S & IIf(EOF(1), "", vbCrLf)是什么意思捏?求帮助~ ^_^...

发布网友 发布时间：2024-07-21 18:46

我来回答

共3个回答

热心网友 时间：2024-08-09 03:38

这里的vbCrLf是回车的ASCII码，即CHR(13)
其中的EOF(1)是判断文件结束的函数，括号中的（1）指的是1#文件，如果文件结束了，此值为真，否则为假。
而IIF是一个根据表达式的值为真或假返回不同的值，格式为：IIf(expr, truepart, falsepart)，当expr为真时，返回 truepart，为假时返回falsepart。
这样，就容易搞清楚原来这个语句的意思了！
S1 = S1 & S & IIf(EOF(1), "", vbCrLf)
显然，S1为字符串变量，它的值为原来的S1的值和S（也是字符串变量）的相连，最后根据1#文件如果结束，则不加上任何字符（即加上空字符""），如果EOF(1)为假，即文件未结束，则加上一个回车字符。

热心网友 时间：2024-08-09 03:41

Function delTxtLine(Fpath As String, ByVal nLine As Integer) As Boolean
'该函数用于删除fPath文件的第nLine行
'函数返回值，操作成功，返回True，失败返回False
Dim N As Integer, S As String, A
Dim s1 As String ' 用来存放读取的数据
delTxtLine = False '初始化返回结果为假，除非删除成功则更改为真
If Len(Dir(Fpath)) = 0 Then
Else
Open Fpath For Input As #1
N = 0
While Not EOF(1)
N = N + 1
Line Input #1, S
If N <> nLine Then
s1 = s1 & S & IIf(EOF(1), "", vbCrLf) '不是N行记录到变量s1
Else
delTxtLine = True '有N行 不记录跳过，返回真
End If
Wend
Close #1
Open Fpath For Output As #1
Print #1, s1 ' 输出s1
Close #1
End If
End FunctionIf N <> nLine Then
s1 = s1 & S & IIf(EOF(1), "", vbCrLf) '不是N行记录到变量s1
Else
delTxtLine = True
自己一个一个字写的~~~

热心网友 时间：2024-08-09 03:40

& 是字符连接运算符号 iif是一个函数 eof好像是判断文件有没有到最后1 大概是文件号吧
vbCrLf是常量 回车换行符号