使ç¨é¡ºåºæ件访é®
æ¨èæ¨ä½¿ç¨ File System Objects æ¥å建ææ¬æ件ï¼ä½è¯¥ä¿¡æ¯åªå¨éè¦ä½¿ç¨æ§ææ¬æ件å建æ¹æ³æ¶ææä¾ã
å½è¦å¤çåªå
å«ææ¬çæ件æ¶ï¼æ¯å¦ç±å
¸å
ææ¬ç¼è¾å¨æå 建çæ件ï¼ä¹å°±æ¯è¯´ï¼å
¶ä¸çæ°æ®æ²¡æåæè®°å½çæ件ï¼ä½¿ç¨é¡ºåºå访é®æ好ã顺åºå访é®ä¸å¤ªéäºåå¨å¾å¤æ°åï¼å 为æ¯ä¸ªæ°åé½è¦æ
å符串åå¨ãä¸ä¸ªåä½æ°å°éè¦ 4 个åèçåå¨ç©ºé´ï¼èä¸æ¯ä½ä¸ºä¸ä¸ªæ´æ°æ¥åå¨æ¶åªéç 2 个åèã
æå¼é¡ºåºè®¿é®æ件
å½ä»¥é¡ºåºå访é®æå¼ä¸ä¸ªæ件æ¶ï¼å¯æ§è¡ä»¥ä¸æä½ï¼
ä»æ件è¾å
¥å符 (Input)
åæ件è¾åºå符 (Output)
æå符å å°æ件 (Append)
è¦é¡ºåºå访é®æå¼ä¸ä¸ªæ件ï¼Open è¯å¥ä½¿ç¨ä»¥ä¸è¯æ³ï¼
Open pathname For [Input | Output | Append] As filenumber [Len = buffersize]
å½æå¼é¡ºåºæ件ä½ä¸º Input æ¶ï¼è¯¥æ件å¿
须已ç»åå¨ï¼å¦åï¼ä¼äº§çä¸ä¸ªé误ãç¶èï¼å½æå¼ä¸ä¸ªä¸åå¨çæ件ä½ä¸º Output æ Append æ¶ï¼Open è¯å¥é¦å
å建该æ件ï¼ç¶ååæå¼å®ã
å½å¨æ件ä¸ç¨åºä¹é´æ·è´æ°æ®æ¶ï¼é项 Len åæ°æå®ç¼å²åºçå符æ°ã
å¨æå¼ä¸ä¸ªæ件 InputãOutput æ Append 以åï¼å¨ä¸ºå
¶å®ç±»åçæä½éæ°æå¼å®ä¹åå¿
é¡»å
ä½¿ç¨ Close è¯å¥å
³éå®ã
ç¼è¾ä¸ºé¡ºåºè®¿é®æå¼çæ件
å¦æè¦ç¼è¾ä¸ä¸ªæ件ï¼å
æå®çå
容读å
¥å°ç¨åºåéï¼ç¶åæ¹åè¿äºåéï¼æååæè¿äºåéååå°è¯¥æ件ã以ä¸åè讨论å¦ä½ç¼è¾ä»¥é¡ºåºå访é®æå¼çåè®°å½ã
ä»æ件ä¸è¯»åå符串
è¦æ£ç´¢ææ¬æ件çå
容ï¼åºä»¥é¡ºåº Input æ¹å¼æå¼è¯¥æ件ãç¶åä½¿ç¨ Line Input#ï¼Input( )ï¼æè
Input# è¯å¥å°æ件æ·è´å°ç¨åºåéä¸ã
Visual Basic æä¾äºä¸æ¬¡è¯»å顺åºæ件ä¸ä¸ªå符æä¸è¡çè¯å¥ååè½ã
ä¾å¦ï¼ä»¥ä¸ä»£ç 段éè¡è¯»åä¸ä¸ªæ件ï¼
Dim LinesFromFile, NextLine As String
Do Until EOF(FileNum)
Line Input #FileNum, NextLine
LinesFromFile = LinesFromFile + NextLine + Chr(13) + Chr(10)
Loop
尽管 Line Input # å°è¾¾å车æ¢è¡æ¶å®ä¼è¯å«è¡å°¾ï¼ä½æ¯ï¼å½å®æ该è¡è¯»å
¥åéæ¶ï¼ä¸å
æ¬å车æ¢è¡ãå¦æè¦ä¿ç该å车æ¢è¡ï¼ä»£ç å¿
须添å ã
ä¹å¯ä»¥ä½¿ç¨ Input # è¯å¥ï¼å®è¯»åæ件ä¸æåçä¸åçæ°åå/æå符串
表达å¼ãä¾å¦ï¼è¦ä»ä¸ä¸ªé®ä»¶å表æ件ä¸è¯»åä¸è¡ï¼å¯ä½¿ç¨ä»¥ä¸è¯å¥ï¼
Input #FileNum, name, street, city, state, zip
å¯ä»¥ä½¿ç¨ Input å½æ°æ¥ä»æ件ååéæ·è´ä»»ææ°éçå符ï¼æç»çåé大å°åºè¶³å¤å¤§ãä¾å¦ï¼ä»¥ä¸ç代ç ä½¿ç¨ Input ææå®æ°ç®çå符å¤å¶å°åéã
LinesFromFile = Input(n, FileNum)
è¦å°æ´ä¸ªæ件å¤å¶å°åéï¼è¯·ä½¿ç¨ InputB å½æ°å°åèä»æ件å¤å¶å°åéãå 为InputB å½æ°è¿åä¸ä¸ª ANSI å符串ï¼æ¨å¿
é¡»ä½¿ç¨ StrConv å½æ°å° ANSI å符串转æ¢ä¸ºä¸ä¸ªå¦ä¸ç UNICODE å符串ï¼
LinesFromFile = StrConv(InputB(LOF(FileNum), FileNum), vbUnicode)
æå符串åå
¥æ件
è¦å¨é¡ºåºæ件ä¸åå¨åéçå
容ï¼åºä»¥é¡ºåº Output æ Append æå¼å®ï¼ç¶åä½¿ç¨ Print # è¯å¥ãä¾å¦ï¼ææ¬ç¼è¾å¨å¯ä»¥ä½¿ç¨ä»¥ä¸ä»£ç è¡æ¥æä¸ä¸ªææ¬æ¡çå
容æ·è´å°æ件ã
Print #FileNum, TheBox.Text
Visual Basic ä¹æ¯æ Write # è¯å¥ï¼å®æä¸åæ°åå/æå符串表达å¼åå
¥æ件ãå®èªå¨å°ç¨éå·åå¼æ¯ä¸ªè¡¨è¾¾å¼ï¼å¹¶ä¸å¨å符串表达å¼ç«¯æ¾ç½®å¼å·ã
Dim AnyString As String, AnyNumber As Integer
AnyString = "AnyCharacters"
AnyNumber = 23445
Write #FileNum AnyString, AnyNumber
è¿ä¸ªä»£ç 段æ两个表达å¼åå
¥ç± FileNum æå®çæ件ã第ä¸ä¸ªè¡¨è¾¾å¼å
å«ä¸ä¸ªå符串è第äºä¸ªå
å«æ°å 23445ãå èï¼Visual Basic æ以ä¸çå符ï¼å
æ¬æææ ç¹ç¬¦å·ï¼åå
¥å°æ件ä¸ï¼
"AnyCharacters",23445
注æ å¦ææ£å¨ç¨é¡ºåºå访é®ç Write # ä¸ Input # è¯å¥ï¼å¯èèæ¢ç¨éæºå æäºè¿å¶å访é®ï¼å 为å®ä»¬æ´éåé¢åäºè®°å½çæ°æ®ã
详ç»ä¿¡æ¯ æå
³é¡ºåºæ件访é®çå
¶å®ä¿¡æ¯ï¼è¯·åé
âOpen è¯å¥âã