Mathematica QQ聊天记录txt转二维数组

datastring=Import["xxxx.txt",CharacterEncoding->"UTF-8"];
datastring=StringReplace[datastring,{RegularExpression["(.*?:\\d\\d) (.*?)\n"]->"$1<s2>$2<s2>","\n\n"->"<s1>"}];
data=StringSplit[StringSplit[datastring,"<s1>"],"<s2>"];

还是有一些数据很皮，格式不对……

data=DeleteCases[data,x_/;Length[x]!=3];

大不了不要了，用长度过滤一下吧