请帮助。我有一段代码已经在我程序的其他代码中工作了,但是当以某种形式访问时却无法工作,所以我看不到它可能有错误。它是一个使用文本文件的信息存储项目。确切代码和错误的屏幕截图:
我希望它可以将标签文本更改为其尝试读取的文本文件的内容。
谢谢大家:)
答案 0 :(得分:0)
好吧,您的“ zoots1.txt”文件中必须存在一个或多个非法字符!
生成文件名并查看其外观:
Dim zoot1s As String
zoot1s = My.Computer.FileSystem.ReadAllText("zoot1s.txt")
Dim fileName As String
fileName = zoot1s + "c.txt"
MessageBox.Show(fileName)
Dim ClassStrain As String
ClassStrain = My.Computer.FileSystem.ReadAllText(fileName)
TempLabel3.Text = ClassStrain
Timer1.Start()
---编辑-
我不好。我发现问题是在文本中出现了一个跳到新行的地方。好像我已经添加了vbNewline。有什么方法可以编辑文本文件并删除最后一个字符,因此没有新行。
使用Trim()
函数消除空白。另外,请使用Path.Combine()
以确保路径与文件名正确分隔,并带有正确的反斜杠数:
zoot1s = My.Computer.FileSystem.ReadAllText("zoot1s.txt").Trim()
Dim fileName As String = System.IO.Path.Combine(zoot1s, "c.txt")
答案 1 :(得分:0)
我认为您只是错过了最重要的事情,这是您要从中读取数据的文件的整个特定路径,特别是在ReadAllText()方法之后,因此而不是以下一行:
zoom1s = My.computer.FileSystem.ReadAllText('zoot1s.txt“)
您应该这样编辑它:
zoom1s=My.computer.FileSystem.ReadAllTex(My.Computer.FileSystem.CurrentDirectory & \zoot1s.txt")
我希望这可以解决您的问题。
^ _ ^