Question

vb.net如何获取C:\info文件中VERSION=1.7的值，并在label中显示1.7

Answer 1

你好，软糖来回答一下。

你是要获取C:\info这个文件的版本吗?可以用下面的函数(放到任一Module中)：

#Region "■  获取文件版本"
        ''' <summary>
        ''' 获取文件的版本。
        ''' </summary>
        ''' <param name="文件路径">必需。[String]。表示该文件的路径。</param>
        Public Function 获取文件版本(ByVal 文件路径 As String) As String
            Dim info As FileVersionInfo = FileVersionInfo.GetVersionInfo(文件路径)
            Return info.FileVersion
        End Function
#End Region

在窗体中加入代码：

利用Split函数获取=号后面的内容

Dim str As String = 获取文件版本("C:\info")
label1.Text = str.Split("=")(1)

还是说info是info.ini或info.txt文件，你需要读取它某行内容为

VERSION=1.7

的值，然后输出到label?

Imports System.IO

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = 读取文件版本("c:\info.txt")
    End Sub
    Public Function 读取文件版本(ByVal 文件路径 As String) As String
        Dim 文件读取器 As StreamReader = New StreamReader(文件路径)
        Dim 搜索串 = "VERSION="
        While Not 文件读取器.EndOfStream
            Dim t语句 As String = 文件读取器.ReadLine
            If t语句.StartsWith(搜索串) Then
                Return t语句.Substring(搜索串.Length)
            End If
        End While
        Return ""
    End Function
End Class

调试已通过，结果图片：

追问

用这个办法的话会导致文件被占用，有什么办法能解决吗？

追答

在Return之前把StreamReader释放掉就好了。文件读取器.Close()

追问

现在info文件不被占用，但是上一级文件夹被占用，无法重命名，已在重命名上一级目录前使用me.close，但是还是有几率无法重命名文件夹