SimoneQQ同步助手大容量短信恢复失败的终极解决方案
的有关信息介绍如下：
QQ同步助手在恢复大容量短信的时候，总是卡在45%不能继续，按开发方的说法，短信建议在5000以下，可短信达人的短信数量轻易就在15000以上，怎么办？请看终极方案。
首先，平时要经常使用QQ同步助手备份手机通讯录和短信、通话记录等。在恢复的时候发现短信恢复卡在45%，此时可以使用QQ应用（上网找具体方法，此处省略）导出在线备份的短信到计算机中为一个压缩包，类似2014-10-02-07-16-43-msg-56.zip，这个压缩包有密码，为你的QQ号，解压为一个CSV文件，将此文件改名为SMS.CSV。
（1）打开VB，创建一个按钮，在按钮单击事件中输入以下代码：
Private Sub Command1_Click()
Dim Z(4)
Open App.Path & "\sms.CSV" For Input As 1
Open App.Path & "\smsnew.CSV" For Output As 2
Line Input #1, A$
Print #2, ""
Do While Not EOF(1)
Line Input #1, A$
X$ = ""
Do While Right(A$, 3) <> "箱" & Chr(34) & ","
X$ = X$ & A$
Line Input #1, A$
Loop
B = Split(A$, Chr(34) & ",")
Y = UBound(B)
If Y = 5 Then
Z(0) = B(0)
Z(1) = B(1)
Z(2) = B(2)
If Z(1) = "" Then Z(1) = Z(2)
Z(3) = B(3)
Z(4) = B(4)
ElseIf Y > 5 Then
Z(0) = ""
Z(4) = B(Y - 1)
Z(3) = B(Y - 2)
Z(2) = B(Y - 3)
Z(1) = B(Y - 4)
If Z(1) = "" Then Z(1) = Z(2)
For I = 0 To Y - 6
Z(0) = Z(0) & B(I) & Chr(34) & ","
Next
Z(0) = Z(0) & B(Y - 5)
End If
For I = 1 To 5
If Left(Z(I - 1), 1) = Chr(34) Then
Z(I - 1) = Right(Z(I - 1), Len(Z(I - 1)) - 1)
If InStr(Z(I - 1), Chr(34) & Chr(34)) > 0 Then
Z(I - 1) = Replace(Z(I - 1), Chr(34) & Chr(34), Chr(&HD) & Chr(&HA))
End If
End If
Next
Z(3) = Left(Z(3), 16)
Mid(Z(3), 5, 1) = "."
Mid(Z(3), 8, 1) = "."
If Mid(Z(3), 6, 1) = "0" Then Mid(Z(3), 6, 1) = " "
If Mid(Z(3), 9, 1) = "0" Then Mid(Z(3), 9, 1) = " "
If Mid(Z(3), 12, 1) = "0" Then Mid(Z(3), 12, 1) = " "
If Mid(Z(3), 15, 1) = "0" Then Mid(Z(3), 15, 1) = " "
If Z(4) = "收件箱" Then
Z(4) = "deliver"
Print #2, "sms" & "," & Z(4) & ","; Chr(9) & Z(2) & "," & Z(1) & "," & "" & "," & Z(3) & "," & "" & ","; Z(0)
ElseIf Z(4) = "发件箱" Then
Z(4) = "submit"
Print #2, "sms" & "," & Z(4) & "," & Z(1) & "," & Chr(9) & Z(2) & "," & "" & "," & Z(3) & "," & "" & "," & Z(0)
End If
Loop
Close
End Sub
（2）保存工程到一个自建的文件夹，文件夹名称自定。
（1）将前面改名后的文本文件考入上述文件夹。
（2）运行上述VB程序，点击创建的按钮。即可在上述工程文件夹下生成豌豆荚支持的短信导入格式文件SMSNEW.CSV。
打开豌豆荚，连接手机，导入刚才生成的SMSNEW.CSV即可（具体详见网上相关资料，很多）。
