以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]各位帮忙优化一下的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169620)
--  作者：YOU
--  发布时间：2021/6/23 11:10:00
--  [求助]各位帮忙优化一下的代码
各位给我一些建议，帮忙优化一下
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:new 7.txt
--  作者：有点蓝
--  发布时间：2021/6/23 11:12:00
--  
没看出有什么需要优化的
--  作者：YOU
--  发布时间：2021/6/23 11:26:00
--  
    If s.SubString(s.Length - 3) = "png" OrElse s.SubString(s.Length - 3) = "jpg" OrElse s.SubString(s.Length - 4) = "jpeg" OrElse s.SubString(s.Length - 3) = "gif"  Then
        Output.Show( "图片:" & ja(i)("file" & idx).ToString())
    Else
        Output.Show( "文件:" & ja(i)("file" & idx).ToString())
    End If

这个判断太长了，有没有其他的写法？ 蓝老师
--  作者：flashman
--  发布时间：2021/6/23 11:39:00
--  
Dim zlsc As String = 
Dim jo As JObject = JObject.Parse(zlsc)
Dim ja As JArray = jo("data")
Dim idx As Integer = 100
For i As Integer = 0 To ja.Count - 1
    idx= idx + 1
    Dim s As String = ja(i)("file" & idx).ToString()
    Dim Values() As String
    Values = s.split(".")
    \'If values.Length = 2 Then End If  \'不放心的话可以判断一下是不是只有一个点号
    Select Case Values(1)
        Case "png","jpg","jpeg","gif"
            Output.Show( "图片:" & ja(i)("file" & idx).ToString())
        Case Else
            Output.Show( "文件:" & ja(i)("file" & idx).ToString())
    End Select
Next
--  作者：YOU
--  发布时间：2021/6/23 11:43:00
--  
感谢大佬