VB.NET/SQL Server：匹配服务器图片文件名与表列（忽略后缀和前导零）

以下是修改后的完整代码，直接解决你提到的两个问题：

Private Sub btnPhoto_Click(sender As Object, e As EventArgs) Handles btnPhoto.Click
    ' 处理产品ID：去除前导零（如果是纯数字的话）
    Dim cleanedProdId As String = If(Integer.TryParse(prdCod, Nothing), CInt(prdCod).ToString(), prdCod)
    Dim photoFolder As String = "\\server\cmg\projects\Photos"

    ' 定义需要匹配的图片格式，可根据实际情况添加
    Dim supportedImageExts As String() = {".png", ".jpg", ".jpeg", ".bmp", ".gif"}
    ' 获取文件夹内所有符合格式的图片文件
    Dim imageFiles As IEnumerable(Of String) = Directory.EnumerateFiles(photoFolder) _
        .Where(Function(file) supportedImageExts.Contains(Path.GetExtension(file).ToLower()))

    ' 遍历文件逐一匹配
    For Each imagePath As String In imageFiles
        ' 提取文件名（不含扩展名）并去除前导零
        Dim rawFileName As String = Path.GetFileNameWithoutExtension(imagePath)
        Dim cleanedFileName As String = If(Integer.TryParse(rawFileName, Nothing), CInt(rawFileName).ToString(), rawFileName)

        ' 对比处理后的ID和文件名，忽略大小写（这里其实都是数字，可省略，但留容错）
        If cleanedFileName.Equals(cleanedProdId, StringComparison.OrdinalIgnoreCase) Then
            Try
                PictureBox1.Image = Image.FromFile(imagePath)
                Exit For ' 找到匹配项就停止遍历，提升效率
            Catch ex As Exception
                ' 处理图片加载失败的情况，比如文件损坏
                MessageBox.Show($"图片加载失败：{ex.Message}")
            End Try
        End If
    Next
End Sub

关键逻辑说明 #

• 去除前导零：
  通过Integer.TryParse判断字符串是否为纯数字，是的话转成整数再转回字符串，自动剔除前导零；如果不是数字（留容错），则保留原字符串。产品ID和文件名用相同逻辑处理，保证对比的是无前置零的纯数字内容。
• 匹配不含扩展名的文件名：
  用Path.GetFileNameWithoutExtension提取每个图片的文件名部分，完全避开扩展名的干扰，只对比数字核心部分。
• 高效遍历筛选：
  先筛选出指定格式的图片文件，再逐个匹配，找到目标后立即退出循环，避免无效遍历；同时增加异常捕获，防止图片损坏导致程序崩溃。

内容的提问来源于stack exchange，提问作者Clamarc