Foxtable(狐表)用户栏目专家坐堂 → 对于文本数据中 在导入文本数据时 没有明显|类似间隔符号 只有空格符号 该怎么写这个符号呢?


  共有4010人关注过本帖树形打印复制链接

主题:对于文本数据中 在导入文本数据时 没有明显|类似间隔符号 只有空格符号 该怎么写这个符号呢?

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/1 14:24:00 [显示全部帖子]

Values = Multi.split(vbtab)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/1 14:40:00 [显示全部帖子]

If  dlg.ShowDialog =  DialogResult.OK Then
   

    Dim  strs As  String =  FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    t2.text=dlg.FileName
    Dim Values11() As String =  strs.Replace(vbcr,"").split(vblf)
        Dim  rs As  String =  Values11(0)
            Dim  cs() As  String =  rs.Split(vbtab)
    cm4.ComboList=string.join("|",cs)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/1 15:53:00 [显示全部帖子]

vbtab没有办法作为一个字符放到文本框里的,建议作成勾选,如果勾选就使用vbtab,否则使用文本框内容作为分隔符

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/1 17:41:00 [显示全部帖子]

Dim jg As WinForm.CheckBox = e.Form.Controls("是否使用tab作为间隔符")
Dim bsbs As String
if jg.checked then
bsbs = vbtab
elseif e.Form.Controls("TextBox3").text > "" 如果指定了分隔符
bsbs = e.Form.Controls("TextBox3").text
else
bsbs = "|"  如果既不勾选,也不指定了分隔符,默认使用“|”
end if

这里开始正常导入,所有使用Split分隔行数据的地方直接Split(bsbs)即可

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/1 20:31:00 [显示全部帖子]

我测试没有问题,下拉列表正常

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


 回到顶部