美女视频一区二区三区_av片在线观看_免费看黄在线网站_一色屋精品久久久久久久久久_国产视频1区_国产精品久久久久久久岛一牛影视

【轉(zhuǎn)載】VBA 讀取/寫入文本文件_編織博客

2013-12-06 13:57 查看博客原文

1、Open 語句?

打開方式有?

Input:以讀取方式打開。

Output:以寫入方式打開。

Append:以追加方式,即添加內(nèi)容到文件末尾打開。

Binary:以二進制方式打開。

Random:以隨機方式打開,如果未指定方式,則以 Random 方式打開文件。

?Open pathname For mode As [#]filenumber

?Open "c:\a.txt" For Output As #1

filenumber? 是一個有效的文件號,范圍在 1 到 511 之間。

如果 pathname 指定的文件不存在,那么,在用 Append、Binary、Output、或 Random 方式打開文件時,可以建立這一文件。?

2、Close 語句?

語法:Close [filenumberlist]

???? filenumberlist 參數(shù)為一個或多個文件號,若省略 filenumberlist,則將關(guān)閉 Open 語句打開的所有活動文件。?

說明:打開文件后,必須在使用完后關(guān)閉文件。

?

3、EOF 函數(shù)?

語法:EOF(filenumber)?

功能:返回一個 Integer,它包含 Boolean 值 True,表明已經(jīng)到達為 Random 或順序 Input 打開的文件的結(jié)尾。

Open "c:\a.txt"? For Input As #1 ‘以讀入方式打開c:\a.txt

??? Do While Not EOF(1)? '未到達結(jié)尾
????????????????? Line Input #1, s1???? '讀入一行,放入s1變量中? ? ? ??
?? ?????? Loop
?????? ?Close #1?


4、LOC 函數(shù)?

語法:LOC(filenumber)?

功能:返回一個 Long,在已打開的文件中指定當前讀/寫位置。?

Dim MyLocation, MyLine?

Open "TESTFILE" For Binary As #1?? ' 打開剛創(chuàng)建的文件。

Do While MyLocation < LOF(1)?? ' 循環(huán)至文件尾。?

MyLine = MyLine & Input(1, #1)?? ' 讀入一個字符到變量中。?

MyLocation = Loc(1)?? ' 取得當前位置。? ' 在立即窗口中顯示。??

Debug.Print MyLine : Tab : MyLocation? Loop? Close #1?? ' 關(guān)閉文件。
?

5、Input # 語句??

    語法:Input #filenumber, varlist
    功能:從已打開的順序文件中讀出數(shù)據(jù)并將數(shù)據(jù)指定給變量。?(有文字中有不在引號中的,會被認為是分隔符)
    說明:通常用 Write # 將 Input # 語句讀出的數(shù)據(jù)寫入文件。為了能夠用 Input # 語句將文件的數(shù)據(jù)正確讀
入到變量中,在將數(shù)據(jù)寫入文件時,要使用 Write # 語句而不使用 Print # 語句。使用 Write # 語句
可以確保將各個單獨的數(shù)據(jù)域正確分隔開。?

6、Line Input # 語句??

    語法:Line Input #filenumber, varname?
    功能:從已打開的順序文件中讀出一行并將它分配給 String 變量。?
    說明:通常用 Print # 與 Line Input # 語句配合使用。Line Input # 語句一次只從文件中讀出一個字符,
直到遇到回車符 (Chr(13)) 或回車–換行符 (Chr(13) + Chr(10)) 為止?;剀嚚C換行符將被跳過,
而不會被附加到字符串上。?
    7、Input 函數(shù)?

語法:Input(number, [#]filenumber),其中number 指定要返回的字符個數(shù)。?

功能:返回 String,它包含以 Input 或 Binary 方式打開的文件中的字符。

說明:通常用 Print # 或 Put 將 Input 函數(shù)讀出的數(shù)據(jù)寫入文件。Input 函數(shù)只用于以 Input 或

Binary 方式打開的文件。

與 Input # 語句不同,Input 函數(shù)返回它所讀出的所有字符,包括逗號、回車符、空白列、

換行符、引號和前導(dǎo)空格等。?

示例:

Dim MyChar,s1

Open "C:\test.txt" For Input As #1

Do While Not EOF(1)?????? ' 循環(huán)至文件尾。

??? MyChar = Input(1, #1)????? ' 讀入一個字符。

s1=Input(EOF(1), #1)? '一次讀入全部

??? Debug.Print MyChar????? ' 顯示到立即窗口。

Loop

Close #1?

?

8、Write # 語句??

語法:Write #filenumber, [outputlist]?

功能:將數(shù)據(jù)寫入順序文件。?

如果省略 outputlist,并在 filenumber 之后加上一個逗號,則會將一個空白行打印到文件中。

多個表達式之間可用空白、分號或逗號隔開??瞻缀头痔柕刃?。?

與 Print # 語句不同,當要將數(shù)據(jù)寫入文件時,Write # 語句會在項目和用來標記字符串的引號之間插入逗號。?

    9、Print # 語句?

語法:Print #filenumber, [outputlist]?

outputlist 參數(shù)的設(shè)置如下:

[{Spc(n) | Tab[(n)]}] [expression] [charpos]?

Spc(n) 用來在輸出數(shù)據(jù)中插入空白字符,而 n 指的是要插入的空白字符數(shù)。

Tab(n) 用來將插入點定位在某一絕對列號上,這里,n 是列號。使用無參數(shù)的 Tab 將插入點定位在

下一個打印區(qū)的起始位置。

expression 要打印的數(shù)值表達式或字符串表達式。

charpos 指定下一個字符的插入點。使用分號將插入點定位在上一個顯示字符之后。用 Tab(n) 將

插入點定位在某一絕對的列號上,用無參數(shù)的 Tab 將插入點定位在下一個打印區(qū)的起始處。如果省略

charpos,則在下一行打印下一個字符。

?

Open "F:\test.txt" For Output As #1???????? ' 打開輸出文件。

Print #1, "This is a test"????????????????? ' 將文本數(shù)據(jù)寫入文件。

Print #1,?????????????????????????????????? ' 將空白行寫入文件。

Print #1, "Zone 1"; Tab; "Zone 2"?????????? ' 數(shù)據(jù)寫入兩個區(qū)(print zones)。

Print #1, "Hello"; " "; "World"???????????? ' 以空格隔開兩個字符串。

Print #1, Spc(5); "5 leading spaces "?????? ' 在字符串之前寫入五個空格。

Print #1, Tab(10); "Hello"????????????????? ' 將數(shù)據(jù)寫在第十列。

讀入文本到數(shù)組

?

Sub test()
??? Dim a()
??? Dim i As Integer
??? x = CreateObject("scripting.FileSystemObject").OpenTextFile("c:\test.txt", 8).Line
??? ReDim a(x)
??? i = 0
??? Open "c:\test.txt" For Input As #1
??????? Do While Not EOF(1)?? '?循環(huán)至文件尾
?????????? i = i + 1
?????????? Line Input #1, a(i)?? ' 讀入一行數(shù)據(jù)并將其賦予某變量
??????? Loop
??? Close #1
End Sub

新跟帖 (共1 條評論)

查看更多評論。。。

主站蜘蛛池模板: 日日操夜夜透 | 草草视频在线播放 | 国产一区二区免费看 | 成人免费自拍视频 | 成人精品久久久 | 免费黄色免费 | 欧美国产精品久久 | 99在线免费观看视频 | 性aaa | 国产精品夜色视频一级区 | 亚洲午夜久久久久 | 亚洲成人精品久久久 | 免费欧美精品 | 国产一级性生活视频 | jizzjizzjizzjizz国产 | 欧美国产精品一区二区 | 黄色网址入口 | 久久精品a一级国产免视看成人 | 中文字幕激情视频 | 在线视频观看国产 | 色婷婷久久一区二区 | 日本黄色一级视频 | 成人在线视频精品 | 91精品成人福利在线播放 | 久久亚洲精品久久国产一区二区 | 哪里可以看免费的av | 成人在线免费小视频 | 欧美一级毛片美99毛片 | 国产91对白叫床清晰播放 | 欧美性受xxxx人人本视频 | 天天看天天摸天天操 | 毛片在线免费视频 | 久久亚洲春色中文字幕久久 | 斗罗破苍穹在线观看免费完整观看 | 久久精品视频首页 | 日本黄色免费观看视频 | 亚洲免费视频一区二区 | 国产寡妇xxxxxxxx性开放 | 成人福利在线免费观看 | 99re热视频这里只精品 | 末成年女av片一区二区 |