Question

VB的一个小问题

input,output,append的作用是什么？
秋色烽火 :请问STRCONV有什么作用?
追加是干什么用的?
谢谢!

Answer 1

追加就是你不用把已经有内容的文件全部读入 将要添加的部分组合后再重新全部与入 追加是直接在文件尾部添加

StrConv 函数

返回按指定类型转换的 Variant (String)。

语法

StrConv(string, conversion, LCID)

StrConv 函数的语法有下面的命名参数：

部分 说明
string 必要参数。要转换的字符串表达式。
conversion 必要参数。Integer。其值的和决定转换的类型。
LCID 可选的。如果与系统LocaleID不同，则为LocaleID（系统LocaleID为缺省值。）

设置值

conversion 参数的设置值为：

常数 值 说明
vbUpperCase 1 将字符串文字转成大写。
vbLowerCase 2 将字符串文字转成小写。
vbProperCase 3 将字符串中每个字的开头字母转成大写。
vbWide* 4* 将字符串中单字节字符转成双字节字符。
vbNarrow* 8* 将字符串中双字节字符转成单字节字符。
vbKatakana** 16** 将字符串中平假名字符转成片假名字符。

vbHiragana** 32** 将字符串中片假名字符转成平假名字符。
vbUnicode 64 根据系统的缺省码页将字符串转成 Unicode。
vbFromUnicode 128 将字符串由 Unicode 转成系统的缺省码页。

==================================
写 读 追加记录
Public Function openfile(ByVal filepath As String) As String
Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line Input #1, sline
s = s & sline & vbCrLf
Wend
Close #1
openfile = s
End Function

Public Function savefile(ByVal filepath As String, ByVal txt As String)
Open filepath For Output As #1
Print #1, txt
Close #1
End Function

Open "A.txt" For append As #1
Print #1,"303 (吴志坤)是个大笨蛋！，居然不知道append是追加。"
Print #1,"从QBASIC时代就有这个语句了。"
Print #1,"Output是从头写，Input是读，Append是追加。"
Print #1,"Print #文件号，是写文件。"
Print #1,"Line Input #文件号，是成行读文件。"
Print #1,"你地明白否？"
Close #1