你好,软糖来回答一下。
你是要获取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
调试已通过,结果图片: