Question

PupilID = "\" & PupilID & ".txt"

If Dir$(PupilID) = "" Then
    Dim swpupilinfo As New StreamWriter(Application.StartupPath & PupilID, True)
    swpupilinfo.Close()
End If

If System.IO.File.Exists(filename) = True Then
    readerlinecount = File.ReadAllLines(Dir$(PupilID))
End If

Dim objwritere As New System.IO.StreamWriter(filename, True)
objwritere.WriteLine(quiztaken & " correct answers " & correct & " wrong answers " & wrong & " total mark " & totalmark)
objwritere.Close()

这是我用来写入文本文件的，所有变量都有值但是当我打开.txt文件时它什么都没有。在编程方面没有那么好，就像老师给我的那样。

Answer 1

您提供的代码中有一半似乎与您提出的问题无关？下面是写入文本文件的简单实现。

您似乎使用pupilId和fileName作为文件路径位置，可能会造成一些混淆？

StreamWriter通过IDisposable实施TextWriter，我建议您使用它。见下文

Dim pupilId As Integer = 1
Dim path As String = String.Format("\\{0}.txt", pupilId)

Using sw As New StreamWriter(filePath,True)
   sw.WriteLine("Whatever text you want here")
End Using

写入文本文件不起作用，没有生成文本

1 个答案: