VB6.0:根据不同运算结果调用不同的文件读出数据并写入到同一文件可能不?如何设计？

1，分别写一个读取文件，和写文件的函数
2，计算结果判断，少量用if ，比少量多点用select case（要是结果很多，且和文件之间没什么关联，那就算了，一个个写很累的），调用读取文件，写文件。

如果文件名可以自己命名的话，就用固定字符加上计算结果，这样就不用判断，直接用计算结果组出文件名，然后读写就行了

本来想赞同楼上所说，可是不让点，只好我再重复一下，最好的的方式就是文件名称和你的计算结果有关联，这样可以直接调用，
如果是文本文件件打开可以用open语句或者用File System Objects
下面是File System Objects 的一个实例

'引用 Microsoft Scripting Runtime（工程菜单-引用）
Dim fso As New FileSystemObject, fil1 As File, fil2 As File, ts As TextStream
Dim a() As String, shu() As Long
Set fil1 = fso.GetFile("c:\t.txt") '这里是读取文件的路径你可以用算法得到你想要的文件
' 读取文件的内容。
Set ts = fil1.OpenAsTextStream(ForReading)
s = ts.ReadAll
‘.......加上你的处理文件内容的过程如果有的话
ts.Close

'下面是写入的过程
Set fil2 = fso.GetFile("c:\t.txt") ’我这里是写入原文件，你改一下路径就可以写到其他文件里了

Set ts1 = fil2.OpenAsTextStream(ForWriting, TristateUseDefault)
ts1.Write s
ts1.Close