设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › 跪求文字解码 通过消息发下 感激不尽

跪求文字解码 通过消息发下 感激不尽

[复制链接]
查看11 | 回复2 | 2010-10-7 23:54:02 | 显示全部楼层 |阅读模式
sText = sText & Mid(sHtml, lTextStart, lTextEnd - lTextStart)
lBracketPos = InStr(lTextEnd + , sHtml, "", "> ")
sText = Replace(sText, "
", vbCrLf, , , vbTextCompare)
tml2Txt = sText

回复

使用道具 举报

千问 | 2010-10-7 23:54:02 | 显示全部楼层
这代码不全啊，我没法给你完全解释，大概功能是Html到Txt的转换老兄这是Basic语言，发到C#区有人理你？这段代码是在对HTML字符串做格式处理。sText = sText & Mid(sHtml, lTextStart, lTextEnd - lTextStart)
'提取sHtml中 lTextStart位置开始 lTextEnd - lTextStart长度个字符的字符串，添加到sText的末尾lBracketPos = InStr(lTextEnd + , sHtml, " < ") End If
'前面肯定缺代码，连开
回复

使用道具 举报

千问 | 2010-10-7 23:54:02 | 显示全部楼层
从代码上看你是在条件语句一半截取下来的sText = sText & Mid(sHtml, lTextStart, lTextEnd - lTextStart)就是说sText = sText 与上 sHtml,lTextStart,lTextEndl-TextStart三者之中中间的那个其他的，由于对这种语言不熟，还
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行