Question

vb如何建立一个文件用来保存工程数据，以方便日后使用(配方功能）

如题。VB项目用来做自动化控制，如项目中有10个数据 与不同的产品相关联，即在生产A类产品时，这10个变量使用A组数据的值进行控制。希望模式：两个按钮，一个是保存，一个是调用。保存按钮用来给用户将当前显示的数据存成文件（文件名可由用户自定），调用按钮用来给用户调用以前所保存的参数文件。 配方的新建与调用
本人初学VB，还请各位前辈帮帮忙，指个方向。

Answer 1

呵呵，打开文件，保存文件这两个问题真的是很基础了，问不如搜一下，更详细。

'保存文件为指定格式文本
'filename为要保存的文件名（含路径），Filecode为保存的编码格式,，Textstring为要保存的内容
Public Function SavePfile(ByVal Filename As String, ByVal FileCode As String, ByVal TextString As String)
Dim objstream As Object
Set objstream = CreateObject("ADODB.Stream")
'
With objstream
.Type = 2
.Mode = 3
.Charset = FileCode '不同编码时自己换,Chinese (Simplified) (GB2312),中文 GBK ,繁体中文 Big5 ,日文 EUC-JP ,韩文 EUC-KR,charset=UTF-8(国际化编码),ANSI=GBK或者GB2312,Unicode=unicode big endian,UTF-16,UTF-32
.open
.WriteText TextString
.SaveToFile Filename, 2
.Close
End With
Set objstream = Nothing
End Function

'=========================================================================
'读取文本文件内容
Public Function ReadFile(ByVal Filename As String) As String
Dim objstream As Object
Set objstream = CreateObject("ADODB.Stream")
'
With objstream
.Type = 2
.Mode = 3
.open
.Charset = "Unicode" '不同编码时自己换,Chinese (Simplified) (GB2312),中文 GBK ,繁体中文 Big5 ,日文 EUC-JP ,韩文 EUC-KR,charset=UTF-8(国际化编码),ANSI,Unicode,unicode big endian
.LoadFromFile Filename
ReadFile = .ReadText
.Close
End With
End Function

这两个我自己整理的函数基本够用了

Answer 2

用Open可以实现任何数据的存储！！！
存储不同数据的时候加个分隔符，然后读取的时候用Split分割到数组里进行读取

Answer 3

使用数据库是最简单的了。

追问

要借助excel或者SQL之类的软件？。我看过别人做的项目，都是生成一个文件后辍为RFPM（用VC时），源代码没有，但猜测是对应的变量取所调用该用对就位置的值。
主要问题：生成文件用什么函数？调用文件又用什么函数？
今天看了一些基础教程，关于文件的操作，讲到OPEN ,COLSE之类的函数，似乎不能达到我要的效果（希望是保存和调用时，由用户去指定路径）

追答

建议使用Access数据库，例如数据库名称为：自动化控制，创建数据表，名称为：项目，在数据表创建11个字段，名称自定（我这里是定义了配方、数据1、数据2、数据3.....数据10），下面是二段按钮代码（一个是保存，一个是调用）：
你的提问只能输入999个字，代码无法提交，请百度HI吧。

Answer 4

做系统日志...

追问

新手，迷茫！