以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]现有一个集合Q1s，想截取Q1s里每个值的左边8个字符，形成集合Q2s, 请看看下面代码没问题吧  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179693)

--  作者：412873264 --  发布时间：2022/9/4 7:56:00 --  [求助]现有一个集合Q1s，想截取Q1s里每个值的左边8个字符，形成集合Q2s, 请看看下面代码没问题吧 \'现有一个集合Q1s，想截取Q1s里每个值的左边8个字符，形成集合Q2s, 请看看下面代码没问题吧？ Dim Q1s As List(Of String) Dim Q2s As List(Of String) For Each Q1 As String In Q1s     Dim Q2 As String     Q2 = Q1.SubString(0, 7)     Q2s.Add(Q2) Next

--  作者：程兴刚 --  发布时间：2022/9/4 11:34:00 --   Dim Q1s As List(Of String) \'这里还须向Q1s添加值。 Dim Q2s As List(Of String) Dim Q2 As String For Each Q1 As String In Q1s if len(Q1) >7     Q2 = Q1.SubString(0, 7)     Q2s.Add(Q2) end if Next [此贴子已经被作者于2022/9/4 11:36:08编辑过]

--  作者：412873264 --  发布时间：2022/9/4 13:20:00 --   好的。谢谢。怪不得报错，是因为有些字符串长度不足