[求助]怎样提取下面一段文字？读取TXT文本qq聊天记录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎样提取下面一段文字？读取TXT文本qq聊天记录

共有2335人关注过本帖树形打印复制链接主题：[求助]怎样提取下面一段文字？读取TXT文本qq聊天记录

zto001

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

加好友

发短信

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

[求助]怎样提取下面一段文字？读取TXT文本qq聊天记录 发帖心情

Post By：2021/1/30 9:44:00 [只看该作者]

下面这段文字，我需要把时间、类型、接收者、发送者、群号、内容分列出来，怎么分比较好？

时间=2021-1-30 09:41:57 类型=群接收者=2722838195 发送者=389438458 群号=391491058 内容=运单号店铺问题件类型问题件原因【换行】75408905 tb3812_2011 地址不详/错误已联系客户确认地址为：(湖南省邵阳市大祥区雨溪桥。)。

奇怪，怎么发表后内容分列了

[此贴子已经被作者于2022/2/22 13:20:16编辑过]

有点蓝

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

加好友

发短信

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

Post By：2021/1/30 10:00:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/0245.htm

根据空格拆分，在根据等号拆分，可以看看：http://www.foxtable.com/webhelp/topics/2629.htm

zto001

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

加好友

发短信

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2021/1/30 10:20:00 [只看该作者]

这个我知道，我是想说有没有正则表达式或则其他简便的方法。这样写下来感觉好亢杂

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True

If dlg.ShowDialog = DialogResult.OK Then

Dim strs As String = FileSys.ReadAllText(dlg.FileName,Encoding.Default)

Dim Values() As String

Values = strs.split( vbcrlf )

For Index As Integer = 0 To Values.Length - 1

Output.Show(Values(Index))

Dim Values0() As String

Dim shu As Integer

Values0 = Values(Index).split("=")

For Index0 As Integer = 0 To Values0.Length - 1

'Output.Show(Values0(Index0))

shu =Index0

Dim 行 As Row=Tables("消息记录").AddNew()

行("时间")=Values0(1).Replace(" 类型","")

行("类型")=Values0(2).Replace(" 接收者","")

行("接收者")=Values0(3).Replace(" 发送者","")

If Values0(2).Replace(" 接收者","")="好友" Then

行("发送者")=Values0(4).Replace(" 内容","")

行("内容")=Values0(5)

Else

行("发送者")=Values0(4).Replace(" 群号","")

行("群号")=Values0(5).Replace(" 内容","")

If shu >=6 Then

行("内容")=Values0(6)

End If

zto001

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

加好友

发短信

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

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

我上面这段代码执行的时候老是出现这样的错误，我想可能是TXT文件在不停的新增导致的。有没有好的解决方案？

版本:2020.5.29.8

代码执行出错，错误信息:

system.IndexOutOfRangeException:索引超出了数组界限。在UserCode.Test0

确定

有点蓝

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

加好友

发短信

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

Post By：2021/1/30 10:41:00 [只看该作者]

和这个没有关系。FileSys.ReadAllText是一次性读入内存的，文件新增对已经读入的数据不可能有影响。

Dim 行 As Row=Tables("消息记录").AddNew()

if Values0.length = 7 then

行("时间")=Values0(1).Replace(" 类型","")

行("类型")=Values0(2).Replace(" 接收者","")

行("接收者")=Values0(3).Replace(" 发送者","")

If Values0(2).Replace(" 接收者","")="好友" Then

行("发送者")=Values0(4).Replace(" 内容","")

行("内容")=Values0(5)

Else

行("发送者")=Values0(4).Replace(" 群号","")

行("群号")=Values0(5).Replace(" 内容","")

If shu >=6 Then

行("内容")=Values0(6)

End If

end if

或者逐个判断

Dim 行 As Row=Tables("消息记录").AddNew()

if Values0.length >1 then 行("时间")=Values0(1).Replace(" 类型","")

if Values0.length >2 then 行("类型")=Values0(2).Replace(" 接收者","")

if Values0.length >3 then 行("接收者")=Values0(3).Replace(" 发送者","")

zto001

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

加好友

发短信

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2021/1/30 12:16:00 [只看该作者]

我知道了，是最后一行是空白行，所以解析不了，解析到倒数第二个就行了

'Dim dlg As New OpenFileDialog

'dlg.MultiSelect = True

'If dlg.ShowDialog = DialogResult.OK Then

Dim strs As String = FileSys.ReadAllText("D:\软件\记录输出.txt",Encoding.Default)

Dim Values() As String

Values = strs.split( vbcrlf )

For Index As Integer = 0 To Values.Length - 2

Dim Values0() As String

If Values.length >Index Then

Values0 = Values(Index).split("=")

Dim 行 As Row=Tables("聊天记录").AddNew()

If Values0.length >1 Then 行("时间")=Values0(1).Replace(" 类型","")

If Values0.length >2 Then 行("类型")=Values0(2).Replace(" 接收者","")

If Values0.length >3 Then 行("接收者")=Values0(3).Replace(" 发送者","")

If Values0(2)="好友接收者" Then

If Values0.length >4 Then 行("发送者")=Values0(4).Replace(" 内容","")

If Values0.length >5 Then 行("内容")=Values0(5)

Else

If Values0.length >4 Then 行("发送者")=Values0(4).Replace(" 群号","")

If Values0.length >5 Then 行("群号")=Values0(5).Replace(" 内容","")

If Values0.length >6 Then 行("内容")=Values0(6)

End If

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

主题：[求助]怎样提取下面一段文字？读取TXT文本qq聊天记录