天凄微凉
你好XX，Thanks for getting in touch about your order 140000000.取得联系关于您的订单140000000谢谢。I'm sorry you're still waiting for your order to arrive.对不起，你仍然在等待你的来。Just to double check xx, if you'd like the order returned back to us then sadly you're unable to request this with SkyNet yourself.只是仔细检查XX，如果你想为了回到我们遗憾的是你不能要求自己与天网。If you'd like your parcel returned back to us please let me know and I can get this sorted for you.如果你想把你的包裹返回到我们的请让我知道，我能得到这个分类你。As previously advised, if you'd like to pay the customs charged you should have received an email to let you know how to do this. If you've not received an email please double check your junk/spam folder just incase it's in there.与先前的建议，如果你想支付海关收取你应该收到一封电子邮件，让你知道该怎么做。如果你没有收到一封电子邮件，请检查您的垃圾邮件文件夹只是因为它在那里。I hope this helps. If you need anything else, please get back in touch. Best wishes,我希望这有帮助。如果您有什么需要，请回复。最好的祝福，
陈英杰哥哥
您好XX，非常高兴收到了您140000000元的订单。非常抱歉让您等了这么久，如果您需要重新下单，请双击XX，非常抱歉您不能通过SkyNet自行申请。如果您需要您的包裹回寄给我们，请通知我们，我们会准备接受。如果您希望支付关税您将收到一封指导邮件。如果您没有收到请双击您的垃圾文件夹，可能被分类至此。希望能帮到您，如果您还需要别的帮助，请联系我。祝好运
真水岂无香
Dim stemp() As Integer 定义数组Dim sIp() As String 定义数组Dim iHigt As Integer 定义变量On Error GoTo NumToIpErr 错误处理，当出现错误的时候到NumToIpErr继续执行代码ReDim stemp(3) 重新定义数组ReDim sIp(3) If Len(sSim) = 11 Then 判断sSim中字符的长度，如果sSim中有11个字符进行下面的代码stemp(0) = mid(sSim, 4, 2) 对数组进行赋值，这行的mid函数的意思是说从sSim中的第四个字符开始取2个字符赋值给stemp(0)stemp(1) = mid(sSim, 6, 2) stemp(2) = mid(sSim, 8, 2) stemp(3) = mid(sSim, 10, 2) iHigt = CInt(mid(sSim, 2, 2)) - 30 cint是类型转换，把里面的内容转换成整形ElseIf Len(sSim) = 10 Then 此处对应上面的IFstemp(0) = mid(sSim, 3, 2) stemp(1) = mid(sSim, 5, 2) stemp(2) = mid(sSim, 7, 2) stemp(3) = mid(sSim, 9, 2) iHigt = CInt(mid(sSim, 1, 2)) - 30 ElseIf Len(sSim) = 9 Then stemp(0) = mid(sSim, 2, 2) stemp(1) = mid(sSim, 4, 2) stemp(2) = mid(sSim, 6, 2) stemp(3) = mid(sSim, 8, 2) iHigt = mid(sSim, 1, 1) ElseIf Len(sSim) < 9 Then Select Case Len(sSim) 判断sSim的长度Case 8 如果是8个字节则在sSim前面加上字符串"140"，下面类推sSim = "140" & sSim Case 7 sSim = "1400" & sSim Case 6 sSim = "14000" & sSim Case 5 sSim = "140000" & sSim Case 4 sSim = "1400000" & sSim Case 3 sSim = "14000000" & sSim Case 2 sSim = "140000000" & sSim Case 1 sSim = "1400000000" & sSim End Select stemp(0) = mid(sSim, 4, 2) stemp(1) = mid(sSim, 6, 2) stemp(2) = mid(sSim, 8, 2) stemp(3) = mid(sSim, 10, 2) iHigt = CInt(mid(sSim, 2, 2)) - 30 Else NewNumToIp = "" Exit Function End If '判断iHigt高位是否为1 若为1则将高位对应的数加&H80 If (iHigt And &H8) <> 0 Then sIp(0) = stemp(0) Or 128 Else sIp(0) = stemp(0) End If If (iHigt And &H4) <> 0 Then sIp(1) = stemp(1) Or 128 Else sIp(1) = stemp(1) End If If (iHigt And &H2) <> 0 Then sIp(2) = stemp(2) Or 128 Else sIp(2) = stemp(2) End If If (iHigt And &H1) <> 0 Then sIp(3) = stemp(3) Or 128 Else sIp(3) = stemp(3) End If NewNumToIp = sIp(0) & "." & sIp(1) & "." & sIp(2) & "." & sIp(3) 给NewNumToIp 赋值，NewNumToIp 的值被赋成了类似xx.xx.xx.xx的形式Exit Function NumToIpErr: 错误处理，对应开头的错误处理调用NewNumToIp = "" End Function
优质英语培训问答知识库
