dim ary = e.DataRow("录音文件").replace("D:\电话录音\","").replace(".wav","").split("_")
e.DataRow("录音编号") = ary(1) & ary(2) & ary(3)