VB怎么写Write怎么写呢

Private Sub Command1_Click()

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

'Write #1, Text1, Text2 '每写入一个数据为一个字段，每个字腔谈段以逗号分隔，写完后换行

Write #1, Text1

Write #1, Text2

Close #1

End Sub

Private Sub Command2_Click()

Open "c:\text.txt" For Input As #1

Dim t1 As String, t2 As String

'Input #1, t1, t2 '读取时也按字段顺序进行。

Input #1, t1

Input #1, t2

Text1 = t1

Text2 = t2

Close #1

End Sub

你在窗体放伍伏碰两个文本框，再放两个按钮，试试按钮1写入，关厅运闭后再打开，按按钮2读取。

Write

#

语句

将数据写入顺序文件。

语法

Write

#filenumber,

[outputlist]

Write

#

语句的语法具有以下几个部分：

部分

描述

filenumber

必要。任何有效的文件号。

outputlist

可选。要写入文件的数值表达式或字符串表达式，用一个或多个逗号将这些表达式分界。

说明

通常用

Input

#

从文件读出

Write

#

写入的数据。

如果省略

outputlist，并在

filenumber

之后加上一个逗号，则会将一个空白行打印到文件中。多个表达式之间可用空白、分号或逗号隔开。空白和分号等效。

用

Write

#

将数据写入文件时将遵循几个通用的约定，使得无论什么国别都可用

Input

#

读出并正确解释数据：

在写入数值数据时总使用句号作为十进制分隔符。

对于

Boolean

类型的数据，或者打印

#TRUE#

或者打印

#FALSE#。无论在什么地区，都不将

True

和

False

这两个关键字翻译出来。

使用通用的日期格式将

Date

类型的数据写入文件中。当日期或时间的部件丢失或为零时，只将现有部分写入文件中。

如果

outputlist

的数据为

Empty，则不将任何数据写入文件。但对

Null

数据，则要写入

#NULL#。

如果

outputlist

数据为

Null

数据，则将

#NULL#

写入文件中。

对于塌让

Error

类型的数据，输出看起来与

#ERROR

errorcode#

一样。无论在什么地区，都不将关键字

Error

翻译出来。

与

Print

#

语句不团键局同，当要将数据写入文件时，Write

#

语句会在项目和用来标记字符串的引号之间插入逗号。没有必要在列表中键入明确的分亮芹界符。Write

#

语句在将

outputlist

中的最后一个字符写入文件后会插入一个新行字符，即回车换行符，(Chr(13)

+

Chr(10))。

1 没有逗号输出是因为你根本就雀并没有输出逗号，你只是输出d1-d7,逗号只是分割的标志

2循环中出现溢出是因为你的11111里边

50434,2010,1,1,8,8,11,这里是一个空 50434,2010,1,1,9,17,32766,你把一个空赋给d1所顷烂迹以出现历迅溢出

或者你代码改一下

Private Sub Command1_Click()

Open "G:\TEMP\11111.txt" For Input As #1

Open "G:\TEMP\22222.txt" For Output As #2

Dim d1 As Long, d2 As Integer, d3 As Integer, d4 As Integer, d5 As Integer, d6 As Integer, d7 As Integer

Dim s As String

Dim d() As String

Do While Not EOF(1)

Line Input #1, s

d() = Split(s, ",", -1)

If d(6) = 32766 Then

Print #2, s

End If

Loop

Close #1

Close #2

End Sub

---