请人教我转换C语言的代码

KingOfPorcupine 2014-07-24 03:59:49

<SCRIPT language=javascript type=text/javascript src="MsgHistory.js"></SCRIPT>
<LINK rel=stylesheet type=text/css href="common.css"></HEAD>
<BODY style="MARGIN: 0px; OVERFLOW: hidden" onmousedown=OnMousedown(event) onload=ReLayout();>
<DIV id=Head>
<DIV style="OVERFLOW-Y: hidden; HEIGHT: 1px" id=HeadFoot></DIV></DIV>
<DIV style="HEIGHT: 243px" onscroll=OnContentScroll(); id=content onclick=OnGroupHeadClick();>
<DIV style="DISPLAY: none" id=History> </DIV>
<DIV style="BORDER-BOTTOM: #cbe6ef 1px solid; MARGIN: 5px 5px 10px; DISPLAY: none" id=SeparationLine></DIV>
<DIV style="DISPLAY: none" id=Position1></DIV>
<DIV style="DISPLAY: none" id=Position2></DIV>
<DIV style="DISPLAY: none" id=Position3></DIV>
<DIV id=MsgElement class=Msg SendID="cntaobao诛仙2被b无耐">
<DIV id=MsgHead class=MsgHeadSelf><SPAN id=SenderName class=SenderNameSelf>姬志才</SPAN><SPAN> </SPAN><SPAN id=SenderSite></SPAN><SPAN id=MsgHeadRight><SPAN id=MsgTime>(11:34:16): </SPAN></SPAN></DIV>
<DIV id=MsgContent class=InnerContent>
<DIV id=Msg_6CFBA24FFC024582B53B4CEDCCEC2545 class=MsgContentSelf msgId="6CFBA24FFC024582B53B4CEDCCEC2545" sendId="cntaobao诛仙2被b无耐"><FONT style="FONT-SIZE: 10pt" color=#000000 face=宋体>亲在吗</FONT></DIV></DIV></DIV>
<DIV id=MsgElement class=Msg SendID="cntaobao汝水情缘">
<DIV id=MsgHead class=MsgHead><SPAN id=SenderName class=SenderName>汝水情缘</SPAN><SPAN> </SPAN><SPAN id=SenderSite></SPAN><SPAN id=MsgHeadRight><SPAN id=MsgTime>(11:34:36): </SPAN></SPAN></DIV>
<DIV id=MsgContent class=InnerContent>
<DIV id=Msg_175FBAC50B7D46DD9E62F5E3B76274FB class=MsgContent msgId="175FBAC50B7D46DD9E62F5E3B76274FB" sendId="cntaobao汝水情缘"><FONT style="FONT-SIZE: 12pt" color=#000000 face=微软雅黑>你好，亲</FONT></DIV></DIV></DIV>
<DIV id=MsgElement class=Msg SendID="cntaobao汝水情缘">
<DIV id=MsgHead class=MsgHead><SPAN id=SenderName class=SenderName>汝水情缘</SPAN><SPAN> </SPAN><SPAN id=SenderSite></SPAN><SPAN id=MsgHeadRight><SPAN id=MsgTime>(11:34:38): </SPAN></SPAN></DIV>
<DIV id=MsgContent class=InnerContent>
<DIV id=Msg_191F1104B71E4D9597FDF0E00D31E0E8 class=MsgContent msgId="191F1104B71E4D9597FDF0E00D31E0E8" sendId="cntaobao汝水情缘"><FONT style="FONT-SIZE: 12pt" color=#000000 face=微软雅黑>在的</FONT></DIV></DIV></DIV>
<DIV id=MsgElement class=Msg SendID="cntaobao诛仙2被b无耐">
<DIV id=MsgHead class=MsgHeadSelf><SPAN id=SenderName class=SenderNameSelf>姬志才</SPAN><SPAN> </SPAN><SPAN id=SenderSite></SPAN><SPAN id=MsgHeadRight><SPAN id=MsgTime>(11:34:44): </SPAN></SPAN></DIV>
<DIV id=MsgContent class=InnerContent>
<DIV id=Msg_630968092AF94C128127E01EA9305C52 class=MsgContentSelf msgId="630968092AF94C128127E01EA9305C52" sendId="cntaobao诛仙2被b无耐"><FONT style="FONT-SIZE: 10pt" color=#000000 face=宋体>发货了吗</FONT></DIV></DIV></DIV>
<DIV id=MsgElement class=Msg SendID="cntaobao汝水情缘">
<DIV id=MsgHead class=MsgHead><SPAN id=SenderName class=SenderName>汝水情缘</SPAN><SPAN> </SPAN><SPAN id=SenderSite></SPAN><SPAN id=MsgHeadRight><SPAN id=MsgTime>(11:34:48): </SPAN></SPAN></DIV>
<DIV id=MsgContent class=InnerContent>
<DIV id=Msg_FFD53125FCEF48AEB10ABEB6DB8A5376 class=MsgContent msgId="FFD53125FCEF48AEB10ABEB6DB8A5376" sendId="cntaobao汝水情缘"><FONT style="FONT-SIZE: 12pt" color=#000000 face=微软雅黑>已发货了</FONT></DIV></DIV></DIV>
<DIV id=MsgElement class=Msg SendID="cntaobao诛仙2被b无耐">
<DIV id=MsgHead class=MsgHeadSelf><SPAN id=SenderName class=SenderNameSelf>姬志才</SPAN><SPAN> </SPAN><SPAN id=SenderSite></SPAN><SPAN id=MsgHeadRight><SPAN id=MsgTime>(11:35:06): </SPAN></SPAN></DIV>
<DIV id=MsgContent class=InnerContent>
<DIV id=Msg_017913025FC44D9694B8F48D2452E6FB class=MsgContentSelf msgId="017913025FC44D9694B8F48D2452E6FB" sendId="cntaobao诛仙2被b无耐"><FONT style="FONT-SIZE: 10pt" color=#000000 face=宋体>哦好那我就等着了！！</FONT></DIV></DIV></DIV>
<DIV id=MsgElement class=Msg SendID="cntaobao汝水情缘">
<DIV id=MsgHead class=MsgHead><SPAN id=SenderName class=SenderName>汝水情缘</SPAN><SPAN> </SPAN><SPAN id=SenderSite></SPAN><SPAN id=MsgHeadRight><SPAN id=MsgTime>(11:35:13): </SPAN></SPAN></DIV>
<DIV id=MsgContent class=InnerContent>
<DIV id=Msg_A9A060DBC3FE4A10BFE03039742607A2 class=MsgContent msgId="A9A060DBC3FE4A10BFE03039742607A2" sendId="cntaobao汝水情缘"><IMG src="pic:emotion|%2F:(OK)"></DIV></DIV></DIV></DIV>
<SCRIPT language=javascript type=text/javascript src="common.js"></SCRIPT>

<SCRIPT language=javascript type=text/javascript src="more.js"></SCRIPT>

<SCRIPT language=javascript type=text/javascript src="transfer.js"></SCRIPT>

<SCRIPT>
用 HTMLDocument 方式获得的旺旺聊天记录看不懂谁给解释下或者提供下相关的学习资料最好

...全文

137 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

KingOfPorcupine 2014-07-24

打赏
举报

看了楼上的代码明白了思路多谢了我还以为有现成函数可以把这些文本直接转换掉到头来还得自己做。。。。

业余草 2014-07-24

打赏
举报

学习，想高手学习的

jielin2012 2014-07-24

打赏
举报

楼上高手，学习一下。

赵4老师 2014-07-24

打赏
举报

仅供参考

Private Function StrFormat(s As String) As String
On Error Resume Next
Dim Buf As String
Dim StrTemp As String
Dim c As String
Dim i As Long
Dim j As Long
Dim k As Long
Dim L As Long
    Buf = s
    Do
        L = InStr(1, Buf, "<style", vbTextCompare)
        If L > 0 Then
            k = InStr(L + 6, Buf, "</style>", vbTextCompare)
            If k > 0 Then
                Buf = Left(Buf, L - 1) + Mid(Buf, k + 8)
            Else
                Buf = Left(Buf, L - 1)
                Exit Do
            End If
        Else
            Exit Do
        End If
    Loop
    Do
        L = InStr(1, Buf, "<script", vbTextCompare)
        If L > 0 Then
            k = InStr(L + 7, Buf, "</script>", vbTextCompare)
            If k > 0 Then
                Buf = Left(Buf, L - 1) + Mid(Buf, k + 9)
            Else
                Buf = Left(Buf, L - 1)
                Exit Do
            End If
        Else
            Exit Do
        End If
    Loop
    Buf = Replace(Buf, "&", "&")
    Buf = Replace(Buf, """, Chr(34)) '替换成双引号
    Buf = Replace(Buf, "<", "<")
    Buf = Replace(Buf, ">", ">")
    Buf = Replace(Buf, " ", "")
    Buf = Replace(Buf, "<", " <")
    Buf = Replace(Buf, ">", "> ")
    Buf = Replace(Buf, " ", "")
    Buf = Replace(Buf, Chr(26), " ")
    Buf = Replace(Buf, Chr(10), " ")
    Buf = Replace(Buf, Chr(9), " ")
    Buf = Replace(Buf, Chr(13), " ")
    Buf = LTrim(Buf)
    Buf = RTrim(Buf)
    '您可加入其他替换
    StrTemp = ""
    For i = 1 To Len(Buf)
        c = Mid(Buf, i, 1)
        Select Case c
            Case "<"
                If i <> 1 Then
                    StrTemp = StrTemp & Mid(Buf, j + 1, i - j - 1)
                End If
            Case ">"
                j = i
        End Select
    Next i
    L = Len(StrTemp)
    Do
        Buf = Replace(StrTemp, "  ", " ")
        i = Len(Buf)
        If i = L Then Exit Do
        L = i
        StrTemp = Buf
    Loop
    StrFormat = Buf
End Function

KingOfPorcupine 2014-07-24