双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

====================文件名或编号错误=================

2003-09-09 09:16:13 207 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

800_1 墨衍会员 · AI 创作全网分发关注 + 加入社区

Moltemplate建模----水盒子data文件 1功能介绍 Moltemplate是LAMMPS官方支持的建模工具之一，适用于LAMMPS建模。该程序创建了一种简单的文件格式来存储分子定义和力场，即模板LT。LT文件包含与特定分子有关的所有文本（包括坐标，键拓扑，角度，力场参数，约束，组和修复）。 Moltemplate可以复制分子，对其进行自定义，然后用它作为构建更大、更复杂分子的基础。构建后，可以自定义... 阅读详情

Public tempfilepath As String
Public tempfile_int, file2_int As Integer

Private Sub Strart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Strart.Click

Save1.Filter = "文本文件 (*.txt)|*.txt|所有文件 (*.*)| *.*"
Save1.ShowDialog()
FileOpen(file2_int, Save1.FileName, OpenMode.Output)

End Sub

Public Sub aaa()

Dim i1 As Byte

tempfilepath = System.IO.Path.GetTempPath & DateString & "bhjl.tmp"
FileOpen(tempfile_int,tempfilepath, OpenMode.Output)

...

For i1=0 To ddd
PrintLine(tempfile_int, i1)
Next

FileClose(tempfile_int)
bbb()
End Sub

Sub bbb()
Dim i As Byte

...

For i = 0 To d
PrintLine(file2_int, i) '程序运行到这里出现错误，错误信息“文件名或编号错误”
Next

FileClose(file2_int)
End Sub

==========================================

...全文

HyperMesh实战：用Field工具搞定复杂载荷映射（附TCL脚本示例）本文深入探讨了HyperMesh中Field工具在复杂载荷映射中的高级应用，包括从CSV到有限元网格的温度场映射全流程、稀疏数据处理技巧及TCL自动化脚本示例。通过Field工具，工程师可以高效实现CFD温度场到结构网格的精准映射，显著提升有限元分析的精度与效率。阅读详情

800_1

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

800_1 2003-09-12

打赏
举报

Public tempfilepath As String
Public tempfile_int, file2_int As Integer
Public file2_int As Integer = FreeFile()
Public tempfile_int As Integer = FreeFile() + 1

Private Sub Strart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Strart.Click

Save1.Filter = "文本文件 (*.txt)|*.txt|所有文件 (*.*)| *.*"
Save1.ShowDialog()

End Sub

Public Sub aaa()

Dim i1 As Byte

tempfilepath = System.IO.Path.GetTempPath & DateString & "bhjl.tmp"
FileOpen(tempfile_int,tempfilepath, OpenMode.Output)

...

For i1=0 To ddd
PrintLine(tempfile_int, i1)
Next

FileClose(tempfile_int)
bbb()
End Sub

Sub bbb()
Dim i As Byte
FileOpen(file2_int, Save1.FileName, OpenMode.Output) '这句移动这里就不会出错

...

For i = 0 To d
PrintLine(file2_int, i)
Next

FileClose(file2_int)
End Sub

xixigongzhu 2003-09-11

打赏
举报

你确定只有这些贴出的代码用到了文件操作？

我将你的程序拷贝，然后设置file2_int为1，tempfile_int为2，跑得很好呀，一点问题都没有。

800_1 2003-09-11

打赏
举报

我已经补上

Public file2_int As Integer = FreeFile()
Public tempfile_int As Integer = FreeFile() + 1

这两句，结果还是一样啊，到底是怎么回事？

xixigongzhu 2003-09-11

打赏
举报

在vb.net中文件编号从1开始，到255，如果中间某个编号已经应用于某个文件，那么这个编号就不能再用了。

斑竹的tempfile_int, file2_int值分别是多少呢？

800_1 2003-09-10

打赏
举报

不清楚你的意思啊，我第一次用是FileClose(tempfile_int)啊

800_1 2003-09-10

打赏
举报

看了多遍的确只用一次啊？

哪里出错，大组快指点一下啊，谢谢

xixigongzhu 2003-09-10

打赏
举报

bbb这个方法你只用了一次吗？

800_1 2003-09-09

打赏
举报

是一样啊

xixigongzhu 2003-09-09

打赏
举报

你在文件打开和写入文件的时候打印file2_int的值，看是不是一样。

xixigongzhu 2003-09-09

打赏
举报

因为：
Sub bbb()
Dim i As Byte

...

For i = 0 To d
PrintLine(file2_int, i) '程序运行到这里出现错误，错误信息“文件名或编号错误”
Next

FileClose(file2_int)//？
End Sub

第一次写完后用了FileClose，所以第二次再写的时候这个文件就没有打开了。

✦双11狂欢大促✦

====================文件名或编号错误=================

相关推荐

双11狂欢大促