[求助]各位帮忙优化一下的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]各位帮忙优化一下的代码

共有3770人关注过本帖树形打印复制链接主题：[求助]各位帮忙优化一下的代码

YOU

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：395 积分：633 威望：0 精华：0 注册：2018/3/5 14:40:00

[求助]各位帮忙优化一下的代码 发帖心情

Post By：2021/6/23 11:10:00 [只看该作者]

各位给我一些建议，帮忙优化一下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:new 7.txt

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111420 积分：567176 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/23 11:12:00 [只看该作者]

没看出有什么需要优化的

YOU

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：395 积分：633 威望：0 精华：0 注册：2018/3/5 14:40:00

Post By：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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：82 积分：1072 威望：0 精华：0 注册：2014/4/6 20:26:00

Post By：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

YOU

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：395 积分：633 威望：0 精华：0 注册：2018/3/5 14:40:00

Post By：2021/6/23 11:43:00 [只看该作者]

感谢大佬

下一主题 >> << 上一主题

主题：[求助]各位帮忙优化一下的代码