Question

代码：

    Dim FILE_NAME As String = "C:***\Documents\Eureka\Users\favourites\favourites_container.txt"

    Dim objReader As New System.IO.StreamReader(FILE_NAME)

    If FILE_NAME.ToString.ToCharArray.Contains(WebBrowser1.Url.AbsolutePath) Then
        favouritebtn.Hide()
        not_favouritebtn.Show()
    Else
        favouritebtn.Hide()
        not_favouritebtn.Show()
    End If

错误：文本不是String

的成员

我如何让它工作？基本上，如果Web浏览器的URL在文本文件中，那么favoruitebtn显示但是如果文本文件中没有not_Favouritebtn显示？对不起，我正在应用所有我知道但我只是得到错误。感谢

Answer 1

您错误地使用Dim FILE_NAME As String = "C:\Users\[user]\Documents\Eureka\Users\favourites\favourites_container.txt" Dim reader as StreamReader= My.Computer.FileSystem.OpenTextFileReader(FILE_NAME) Dim a as String Do a = reader.ReadLine If a.Contains(WebBrowser1.Url.AbsolutePath) Then favouritebtn.Hide() not_favouritebtn.Show() Else favouritebtn.Hide() not_favouritebtn.Show() End If Loop Until a Is Nothing reader.Close()，需要逐行阅读文件：

echo $whateveryourprefixis0; 
echo $whateveryourprefixis1; 
echo $whateveryourprefixis2; 
...

Answer 2

您需要使用StreamReader实际读取文件内容，或者只调用File.ReadAllText，然后检查生成的字符串您的Url

Dim FILE_NAME As String = "......"
Dim fileContent = File.ReadAllText(FILE_NAME) 
If fileContent.Contains(WebBrowser1.Url.AbsolutePath) Then
    favouritebtn.Hide()
    not_favouritebtn.Show()
Else
    favouritebtn.Hide()
    not_favouritebtn.Show()
End If

但请注意，如果文件非常大，那么读取内存中的所有内容并不是一个好方法

我需要导入文本文件而不是字符串？

2 个答案: