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

2025-04-04 21:35:25
推荐回答(1个)
回答1:

你好,软糖来回答一下。

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

#Region "■  获取文件版本"
        ''' 
        ''' 获取文件的版本。
        ''' 

        ''' 必需。[String]。表示该文件的路径。
        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

调试已通过,结果图片: