mWebTitle是网页标题Private Sub webme_TitleChange(ByVal Text As String) 里
mWebTitle = nTitle
我 MsgBox mWebTitle 为"专利之家,设计发明与奇思妙想的乐园 ? 猜猜看"我
MsgBox Len(mWebTitle) 为23
MsgBox InStr(FavTitle, "?") 既然是 0 说明没有?
另外测试Dim Str As String
Str = "专利之家,设计发明与奇思妙想的乐园 ? 猜猜看" MsgBox Len(Str ) 为 23
MsgBox InStr(Str , "?") 为 19
则是正常 的 这是为什么啊
mWebTitle = nTitle
我 MsgBox mWebTitle 为"专利之家,设计发明与奇思妙想的乐园 ? 猜猜看"我
MsgBox Len(mWebTitle) 为23
MsgBox InStr(FavTitle, "?") 既然是 0 说明没有?
另外测试Dim Str As String
Str = "专利之家,设计发明与奇思妙想的乐园 ? 猜猜看" MsgBox Len(Str ) 为 23
MsgBox InStr(Str , "?") 为 19
则是正常 的 这是为什么啊
"?"在"mWebTitle"里,你去问"FavTitle"有用么?
mWebTitle 就是webMe.Document.Title
webMe.Document.Title 就是 专利之家,设计发明与奇思妙想的乐园 » 猜猜看msgbox (webMe.Document.Title) 就是 专利之家,设计发明与奇思妙想的乐园 ? 猜猜看但是 MsgBox InStr(webMe.Document.Title, "?") 就是 0
另外测试 Dim Str As String
Str = "专利之家,设计发明与奇思妙想的乐园 ? 猜猜看" MsgBox Len(Str ) 为 23
MsgBox InStr(Str , "?") 为 19
则是正常 的 这是为什么啊
MsgBox InStr(StrConv(mWebTitle,vbNarrow), "?") 这样试试是否正常
MsgBox InStr(StrConv(mWebTitle,vbNarrow), "?") 这样试试是否正常这样可以了这是为什么呢? zhix88