VB.NET窗体运行时从配置文件读取变量的实现方法咨询

安全阿岳

2026-8-4

VB.NET 外部配置文件实现路径变量管理

一、是否支持该实现方式？

VB.NET完全支持通过外部文本/INI配置文件存储变量的需求，无需修改代码、重新编译，直接编辑配置文件即可变更路径值。

二、配置文件结构设计

推荐两种简单易用的结构，按需选择：

1. 纯键值对文本格式（极简）

适合变量不多的场景，每行一个键值对，支持#开头的注释：

# 文件夹路径配置
MyFolderPath = "C:/myfolders"
MyFolderPath2 = "D:/anotherfolders"

2. INI格式（带小节，更规整）

适合多组配置分类管理，用[小节名]区分配置组：

[FolderPaths]
# 主文件夹路径
MyFolderPath = "C:/myfolders"
# 备用文件夹路径
MyFolderPath2 = "D:/anotherfolders"

三、读取配置文件并赋值的代码实现

将配置文件放在程序运行目录（和exe同文件夹），命名为config.ini或config.txt，以下是两种结构对应的读取代码：

1. 读取纯键值对文本的方法

Imports System.IO

' 根据键名读取配置值，自动去除引号、跳过注释
Private Function ReadConfigValue(configPath As String, keyName As String) As String
    ' 若配置文件不存在，返回默认路径或自动创建（可按需调整）
    If Not File.Exists(configPath) Then
        Return "C:/defaultfolders"
    End If

    For Each line As String In File.ReadAllLines(configPath)
        Dim trimmedLine = line.Trim()
        ' 跳过空行和注释
        If String.IsNullOrEmpty(trimmedLine) OrElse trimmedLine.StartsWith("#") Then
            Continue For
        End If

        ' 分割键和值，只按第一个等号分割
        Dim parts = trimmedLine.Split({"="}, 2, StringSplitOptions.RemoveEmptyEntries)
        If parts.Length = 2 Then
            Dim configKey = parts(0).Trim()
            Dim configValue = parts(1).Trim().Trim(""""c) ' 去掉值两端的引号
            ' 不区分大小写匹配键名
            If configKey.Equals(keyName, StringComparison.OrdinalIgnoreCase) Then
                Return configValue
            End If
        End If
    Next

    ' 未找到对应键时返回默认值
    Return "C:/defaultfolders"
End Function

2. 读取带小节的INI文件方法

Imports System.IO

' 根据小节名和键名读取INI配置值
Private Function ReadIniValue(configPath As String, sectionName As String, keyName As String) As String
    If Not File.Exists(configPath) Then
        Return "C:/defaultfolders"
    End If

    Dim isInTargetSection = False
    For Each line As String In File.ReadAllLines(configPath)
        Dim trimmedLine = line.Trim()
        ' 判断是否进入目标小节
        If trimmedLine.StartsWith("[") AndAlso trimmedLine.EndsWith("]") Then
            isInTargetSection = trimmedLine.Equals($"[{sectionName}]", StringComparison.OrdinalIgnoreCase)
            Continue For
        End If

        ' 仅在目标小节内查找键值
        If isInTargetSection Then
            If String.IsNullOrEmpty(trimmedLine) OrElse trimmedLine.StartsWith("#") Then
                Continue For
            End If

            Dim parts = trimmedLine.Split({"="}, 2, StringSplitOptions.RemoveEmptyEntries)
            If parts.Length = 2 Then
                Dim configKey = parts(0).Trim()
                Dim configValue = parts(1).Trim().Trim(""""c)
                If configKey.Equals(keyName, StringComparison.OrdinalIgnoreCase) Then
                    Return configValue
                End If
            End If
        End If
    Next

    Return "C:/defaultfolders"
End Function

3. 窗体加载时读取并赋值

在窗体的Load事件中调用上述方法，将配置值赋值给代码中的变量：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 配置文件路径：程序运行目录下的config.ini
    Dim configPath = Path.Combine(Application.StartupPath, "config.ini")

    ' 可选：首次运行自动创建默认配置文件
    CreateDefaultConfig(configPath)

    ' 读取配置值到变量
    Dim folderPath = ReadIniValue(configPath, "FolderPaths", "MyFolderPath")
    Dim folderPath2 = ReadIniValue(configPath, "FolderPaths", "MyFolderPath2")

    ' 后续即可用这些变量执行原有逻辑（比如绑定ListBox内容）
    ' 示例：ListBox1.Items.AddRange(Directory.GetDirectories(folderPath))
End Sub

' 自动创建默认配置文件的方法
Private Sub CreateDefaultConfig(configPath As String)
    If Not File.Exists(configPath) Then
        Dim defaultContent = "[FolderPaths]" & vbCrLf & _
                            "MyFolderPath = ""C:/myfolders""" & vbCrLf & _
                            "MyFolderPath2 = ""D:/anotherfolders"""
        File.WriteAllText(configPath, defaultContent)
    End If
End Sub

四、使用说明

编译程序后，将生成的exe和config.ini放在同一目录
用户直接编辑config.ini中的路径值，保存后重新运行程序即可生效
若配置文件丢失，程序会自动创建带默认路径的配置文件（需确保程序有目录写入权限）

内容的提问来源于stack exchange，提问作者Spanish Learner 2 Learner