精华内容
下载资源
问答
  • 指定随机存取方式,也是默认方式,在Random方式时,如果没有Access子句,则在执行Open语句时,VB将按下列顺序打开文件:读/写、只读、只写 e、 指定二进制文件。在这种方式下,可以用Get和Put语句对文件任何字节...

    满意答案

    emily606684

    2013.08.29

    采纳率:47%    等级:13

    已帮助:8470人

    文件操作函数

    1、Open 文件名 [For方式] [Access存取类型] [锁定] AS [#]文件号 [Len=记录长度]

    功能:为文件的输入输出分配缓冲区,并确定缓冲区所使用的存取方式

    说明:

    1) 方式:指定文件的输入输出方式,可选,默认是Random,可以是以下值

    a、 Output:指定顺序输出方式,将覆盖原有内容

    b、 Input:指定顺序输入方式

    c、 Append:指定顺序输出方式,在文件未尾追加内容

    d、 Random:指定随机存取方式,也是默认方式,在Random方式时,如果没有Access子句,则在执行Open语句时,VB将按下列顺序打开文件:读/写、只读、只写

    e、 指定二进制文件。在这种方式下,可以用Get和Put语句对文件中任何字节位置的信息进行读写。在Binary方式中,如果没有Access子句,则打开文件的类型与Random方式相同

    2)、存取类型:放在关键字Access之后,用来指定访问文件的类型。可以是下列类型之一

    a、 Read:打开只读文件

    b、Write:打开只写文件

    c、 Read Write:打开读写文件。这种类型只对随机文件、二进制文件及用Append方式打开的文件有效

    3)、锁定:该子句只在多用户或多进和环境中使用,用来限制其他用户或其他进程对打开进行读写操作。锁定类型包括:

    a、 默认:如不指定锁定类型,则本进程可以多次打开文件进行读写;在文件打开期间,其他进程不能对该文件执行读写操作

    b、Lock Shared:任何机器上的任何进程都可以对该文件进行读写操作

    c、 Lock Read:不允许其他进程读该 文件。只在没有其他Read存取类型的进程访问该文件时,才允许这种锁定。

    d、Lock Write:不允许其他进程写这个文件。只在没有其他Write存取类型的进程访问该文件时,才允许这种锁定

    e、 Lock Read Write:不允许其他进程读写这个文件

    如果不使用lock子句,则默认为Lock Read write

    4)、文件号:由用户自行指定一个由1~511之间的整数,只要该文件号未被使用就合法;打开文件后,可以用该文件号进行读写等操作

    5)、记录长度:是一个整型表达式。当选择该参量时,为随机存取文件设置记录长度。对于用随机访问方式打开的文件,该值是记录长度;对于顺序文件,该值是缓冲字符数。”记录长度”不能超过32767字节。对于二进制文件,将忽略Len子句

    举例:Open “price.dat” for Output as #1

    Open “C:\abc.dat” for radom as #1 len=256

    2、Close [#文件号][,#文件号]……:关闭文件

    3、Seek #文件号,位置:文件指针跳到指定位置,以字节为单位。取值1~pow(2,31)-1

    4、Seek (文件号):返回当前文件指针的位置

    5、FreeFile():取得一个未使用的文件号

    6、Loc(文件号):返回指定文件的当前读写位置

    7、LOF(文件号):返回文件长度

    8、EOF(文件号):用来测试文件是否结束,结束返回true

    9、Print #文件号,变量1,变量2,…变量n:按顺序将各变量的值写入顺序文件

    如果是print #文件号,则写入空行

    10、 Write #文件号,表达式表…:作用同 Print

    11、 Input #文件号,变量表….:读顺序文件,进行与Print相反的操作

    12、 Line Input #文件号,字符串变量:从顺序文件中读入一行

    13、 Input$(n,#文件号):从顺序文件读出 n个字符的字符串

    14、 Put #文件号,[记录号],变量:把除对象变量和数组变量外的任何变量(包括号含有单个数组元素的下标变量)的内容写入随机文件。

    例如:Put #2,,filebuff

    15、 Get #文件号,[记录号],变量:读随机文件,执行与put相反的操作

    16、 Get|put #文件号,[位置],变量:读写二制文件,位置是指下一次读写操作的位置。

    17、 Kill 文件名:删除文件

    18、 FileCopy 源文件名,目标文件名:复制文件

    19、 Name原文件名 as 新文件名:重命令文件

    00分享举报

    展开全文
  • 我在看别人的代码,有一个存储过程,我在数据库右键存储过程--修改后打开是这样的: set ANSI_NULLS ON set QUOTED_IDENTIFIER ON go ALTER PROCEDURE [dbo].[ReverseForm]  @CreatorID int,  @FID int...

    我在看别人的代码,有一个存储过程,我在数据库中右键存储过程--修改后打开是这样的:

    set ANSI_NULLS ON
    set QUOTED_IDENTIFIER ON
    go

    ALTER PROCEDURE [dbo].[ReverseForm]
     @CreatorID  int,
     @FID   int  OUTPUT,
     @FormNumber  int=0 OUTPUT
    AS
    DECLARE @FormTypeID  tinyint
    DECLARE @MaxID    int
    DECLARE @SystemDate  DateTime
    DECLARE @StoreID  int


    -- Find the current formtype and storeid
    SELECT @StoreID=StoreID, @FormTypeID=FormTypeID FROM Form WHERE FID=@FID


    -- Find the store's systemdate
    SELECT @SystemDate=Convert(char(10),getdate(),120)

    -- Get the next formnumber for the current store and current formtype
    SELECT @MaxID = MAX(FormNumber) FROM Form WHERE FormTypeID=@FormTypeID AND StoreID=@StoreID

    IF @MaxID is NULL
     SET @FormNumber = 1
    ELSE
     SET @FormNumber = @MaxID + 1

    INSERT INTO Form (StoreID, FormTypeID, FormNumber, RelatedFID, ContractNumber, ClientID,
          WarehouseID, WarehouseID2, CreatorID, SalesID, NoTaxSum, TaxSum, SystemDate,
          SystemTime)
    SELECT StoreID, FormTypeID, @FormNumber, RelatedFID, ContractNumber, ClientID,
          WarehouseID, WarehouseID2, @CreatorID, SalesID, 0, 0, @SystemDate, GETDATE() FROM Form WHERE FID=@FID


    SELECT @FID = @@IDENTITY

    我看不懂了,文中红色字体不是插入一条语句的意思吗?怎么没Value(......)这些? 他这个是什么意思?

    哪个知道?教一下我这个初学者。

    展开全文
  • VB中如何创建并写入txt文件

    千次阅读 2014-05-03 16:16:56
    Private Sub Command2_Click()... Open "F:\TEST\b.txt" For Output As #1  Print #1, Text1.Text  Close End Sub 以上代码可以创建一个txt文件 Private Sub Command1_Click()  Dim str  Open "F:\TEST\a.t

    Private Sub Command2_Click()
        Open "F:\TEST\b.txt" For Output As #1
        Print #1, Text1.Text
        Close
    End Sub
    以上代码可以创建一个txt文件

    Private Sub Command1_Click()
        Dim str
        Open "F:\TEST\a.txt" For Append As #1京东
        str = Text1.Text
        Write #1, str
        Close #1
    End Sub

    以上代码可以往一个txt文件当中写入数据 


    展开全文
  • VB中导出成生CSV文件

    千次阅读 2007-05-10 10:43:00
    "C:AA.CSV"Dim txtData As String 定义变量以保存记录信息txtData = "AA,BB,CC,DD" 记录每个字段以豆号隔开CSVファイルをOpen txtFileName For Output As

     

    Dim txtFileName As String     '定义变量用以保存文件输出路径及名称
    txtFileName 
    = "C:AA.CSV"

    Dim txtData As String         '定义变量以保存记录信息
    txtData 
    = "AA,BB,CC,DD"       '记录每个字段以豆号隔开

    '
    CSVファイルを
    Open txtFileName 
    For Output As #1   '打开上面指定的文件,并开始保存数据
    Print #1, txtData                   '将信息数据保存在文件中
    Print #1, txtData

    Close #
    1               '关闭
    展开全文
  • <p>Here is the code I received from a customer on how they access their web service from ...<p>/* Output: Array ( [01] => Array ( [available] => 333 [name] => Alliance ) </div>
  • VB中如何读取txt文件的数据

    万次阅读 2007-08-23 13:06:00
    Dim A, S As String Dim FreeNum As Integer FreeNum = FreeFile Freenum表示一个空闲的文件号 open "D:/date.txt" for input as #FreeNum 这步是打开“date.txt...如果要写入文件则应该用output或append。 Do Until e
  • <p>Is there an equivalent of PHP __invoke() in VB.net? <p>I would call an object as method, like this: <pre><code>Public Class Testclass ...myTestobj(1) 'should output: 1 </code></pre> </div>
  • 以锁定应用程序资源(sp_getapplock / sp_releaseapplock)为例:sp_getapplock没有返回参数(output类型的),只是在SP中用return来返回值加锁:Dim cmd As ADODB.Command Set cmd = New ADODB.Command cmd....
  • 串口通信MSComm1输出遇到小问题MSComm1.Output = a 提示报错, 运行时错误‘380’无效属性值 经过调整后,对发送字节进行数组定义,问题解决,程序如下...
  • Configure Log Output

    2009-03-10 10:39:00
    VB中加入一个app.config文件,会有自动帮你生成一段关于Log output的配置,具体请看 <?xml version="1.0" encoding="utf-8" ?> <configuration> <system.diagnostics> <sources...
  • [VB学习]之六:文件操作

    千次阅读 2004-12-27 22:06:00
    文件的打开与读写Open “文件名” For 模式 As [#] 文件号 [Len=记录长度]模式:(1)顺序访问模式OutPut:打开一个文件,将对该文件进行写操作。Input:打开一个文件,将对该文件进行读操作。Append:打开一个文件...
  • VB写控件,主要是MAKE DLLPublic Sub writefile() Open "d://example3.txt" For Output As #1 Print #1, "这是一个示例" Print #1, 写入一个空行 Print #1, "同学,"; " "; "你好!
  • 写了一个21点扑克牌的程序,用VB.NET写的,需要你找出其中的bugs,尽可能多 的找出,并写明错误原因 由于小弟写C#的,对VB.NET实在不熟悉,还希望有经验前辈帮忙看看 小弟不胜感觉 代码一共有6个类 分别是 ...
  • Hi,I am building a program on Information System for Reservoir Operation for my Masters ... Now I have a text file which is an output file from a processing software (Terramodel) that lists out ...
  • VB 导出TXT

    2013-05-09 08:52:00
    怎么在创建的文件输入文字Open "c:\aaa.TXT" For Append As #1怎样在输入文字后,就是写到记事本以后,带着那个不换行或换行符?----------------------------------------------------------------------------...
  • VB基础4

    2011-02-27 17:16:00
    若顺序文件以Output模式打开,则原来的内容全部丢失,文件只有Print#的内容;若以Append模式打开的话,则内容会追加在原有内容的后面   Write #语句(略)     二。随机文件  ...
  • 最初的测试程序1 Public Sub writefile() Open "d://example3.txt" For Output As #1 Print #1, "这是一个示例" Print #1, 写入一个空行 Print #1, "同学,"; " "; "你好!" 
  • VB动态产生创建sql文件

    千次阅读 2006-02-07 19:54:00
    1) VB生成sql文件 VB为指定的表sqlName,动态产生创建触发器gps_insert的sql文件,输出到指定目录文件sqlFile。Public Sub CreateSQLScriptFile(sqlFile As String, sqlName As String)Dim sql As String Open ...
  • 排行榜问题 vb

    2010-07-26 06:39:00
    1.Open strpath For Input As ...Looploopdebug.print 对调试很有用 相当于printinput模式,表示读取output为写入模式可以整行读取 也可以按分隔符读入,第二种很适合排行榜问题,但需要注意写入的时候加入规定的分隔符
  • 我在VB中这样调用 Public Declare Function mzsfglc Lib "yyjk.dll" (ByRef Lb As String, tsf() As tsf, ByRef Toutput As Toutput) As Long '门诊消费 '定义收费结构体 Public Type tsf cintJylb As String '※...
  • VB串口使用心得两则 (转)[@more@]最近本人,使用VB串口编程,得到心得两则,拿来和大家共享, 如果对则,褒奖本人两句,如果不对,则欢迎大虾指教。 心得1:串口的输出属性: ...按照书上或是MSDN给出OUTPUT的...
  • 在发送数据,主要涉及到outputoutputsize,outputcount,sthreshold属性以及comevsend事件,尤为重要是sthreshold为0(default)时,不触发oncomm事件,所以如果要触发oncomm事件,需要将sthreshold属性设置为1 ...
  • 最近在给老程序(VB6+SQL2005+水晶报表)添加备份、恢复数据库功能。真心是手动备份数据库太劳累,且显得不专业,呵呵。调用sp_addumpdevice过程时,发生这SP有返回值,度娘了一圈,很少有提出存储过程返回值如何在...
  • VB串口编程--测量程序

    2017-03-27 02:06:19
    MSComm1.Output = sj End If Else MsgBox ("格式不对!") End If End If End Sub '字符串表示的十六进制数据转化为相应的字节串,返回转化后的字节数 Private Sub Form_Load() MSComm1.Settings = "38400,n,8...
  • 如果需要从线程的方法获得计算的值,可以考虑使用模块级公共变量,在线程对应的方法最后赋值给这个公共变量。另外一个常见的方法是使用类: 以下方法通过线程计算从0到某个正整数所有数字的和,使用clsSum....
  • VB串口使用心得两则

    2002-01-25 09:27:00
    心得1:串口的输出属性:按照书上或是MSDN给出OUTPUT的数据类型是字符串或VARIANT类型,我出现的问题是我想传送0至255之间的数,可是按照,以上的输出数据类型进行设置的化,传输不了诸如200,210等大于125的数,...
  • 只是在自己的项目使用到了,所以在此整理Private Sub Command1_Click() Open "C:\aaa.txt" For Output As #1 Print #1, Encode(Text1.Text) Close #1 End Sub Private Function Encode(ByVal sCode As ...
  • 实现对工作簿的工作表标签匹配,并对其中的数据进行加工处理,用到了循环遍历,及文件输出Dim MyPath Sub ClickThere() ' 得到当前活动工作簿的根目录 MyPath = ActiveWorkbook.Path & "\" Close #1 ' 打开文件 ...

空空如也

空空如也

1 2 3 4
收藏数 80
精华内容 32
关键字:

vb中output