常用搜索引擎关键字转换!

 Public Function GetSearchKeyword(RefererUrl) '搜索关键词
  on error resume next
  Dim re
  Set re = New RegExp
  re.IgnoreCase = True
  re.Global = True
  Dim a,b,j
  re.Pattern = "(" _
   & "google.+?q=([^&]*)" & "|sina.+?word=([^&]*)" _
   & "|sohu.+?query=([^&]*)" & "|163.+?q=([^&]*)" _
   & "|yahoo.+?p=([^&]*)" & "|baidu.+?word=([^&]*)" _
   & "|openfind.+?q=([^&]*)" & "|lycos.+?query=([^&]*)" _
   & "|aol.+?query=([^&]*)" & "|onseek.+?keyword=([^&]*)" _
   & "|3721/.com.+?p=([^&]*)" & "|search/.tom.+?word=([^&]*)" _
    & ")"
  Set a = re.Execute(RefererUrl)
  If a.Count>0 then
   Set b = a(a.Count-1).SubMatches
   For j=1 to b.Count
    If Len(b(j))>0 then GetSearchKeyword=b(j) : Exit Function
   Next
  End If
  if err then
  err.clear
  GetSearchKeyword = RefererUrl
  else
  GetSearchKeyword = ""  
  end if  
 End Function

UTF-8类型:比如google

<%Function utf8code(strUtf)
'将单个的utf字符串,转换成gb汉字,
l=len(strutf)/9
for i=1 to l
  astr=left(strutf,9)
  if i=l then
  strutf=""
  else
  strutf=mid(strutf,10,(l-i+1)*9)
  end if

dim iCode,iCode1,iCode2

iCode=Mid(astr,2,2)
iCode1=Mid(astr,5,2)
iCode2=Mid(astr,8,2)

iCode="&h"&iCode
iCode1="&h"&iCode1
iCode2="&h"&iCode2

iiCode=(iCode And &h0f)
iiCode1=(iCOde1 And &h3f)
iiCode2=(iCode2 And &h3f)

st=ChrW((iiCode*2^12) OR (iiCode1*2^6) OR iiCode2) '编码转换算法程序,测试通过
utf8code=utf8code&st
next
End Function%>

16进制转换10进制

<% Function ten(num)
  for i=1 to len(num)
   temp=mid(num,i,1)
   if trim(temp)="A"  then
    temp=10
   elseif trim(temp)="B"  then
    temp=11
   elseif trim(temp)="C"  then
    temp=12
   elseif trim(temp)="D"  then
    temp=13
   elseif trim(temp)="E"  then
    temp=14
   elseif trim(temp)="F"  then
    temp=15
   end if
   cf=len(num)-i
   sum=sum+cint(temp)*(16^cf)
  next
  ten=sum
 end Function

'转换搜索引擎关键字比如3721,baidu.163等
 Function fn(st)
  js1=cdbl(ten(mid(st,2,2))*256)
  js2=cdbl(ten(mid(st,5,2)))
  js=cdbl(js1)+cdbl(js2)
  js=js-65536
  fn=chr(js)
 end Function%>

<%function naf(str)
l=Len(str)/6
for j=1 to l
  hz=left(str,6)
  if j=l then
  str=""
  else
  str=mid(str,7,(l-j+1)*6)
  end if
  naf=naf&fn(hz)
next
end function%>

'3721,baidu,等关键字的乱码转换方法

<SCRIPT language="VBScript">
Function URLEncoding(vstrIn)
    strReturn = ""
    For i = 1 To Len(vstrIn)
        ThisChr = Mid(vStrIn,i,1)
        If Abs(Asc(ThisChr)) < &HFF Then
            strReturn = strReturn & ThisChr
        Else
            innerCode = Asc(ThisChr)
            If innerCode < 0 Then
                innerCode = innerCode + &H10000
            End If
            Hight8 = (innerCode  And &HFF00)/ &HFF
            Low8 = innerCode And &HFF
            strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
        End If
    Next
    URLEncoding = strReturn
End Function

</ScRIPT>

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 你可以使用 BERT 模型预测一句话中最可能出现的关键字。首先,你需要准备好训练好的 BERT 模型和输入数据,然后使用如下步骤进行搜索: 1. 将输入数据转换成 BERT 能够处理的格式,例如将文本转换成 BERT 输入所需的 ID 序列。 2. 使用 BERT 模型对输入数据进行编码,得到输入句子的表示向量。 3. 使用表示向量作为输入,调用搜索引擎的 API,获取搜索结果。 4. 对搜索结果进行处理,提取出关键字。 这是一个大致的流程,具体实现过程可能会有所不同。希望这对你有帮助。 ### 回答2: 使用BERT搜索一句话的关键字有以下几个步骤: 1. 数据预处理:将待搜索的句子进行分词,并添加特殊的标记符号,如[CLS]和[SEP]。同时,将句子转化为数字序列,以便输入BERT模型。 2. 输入编码:将预处理后的句子输入BERT模型,得到句子中每个词的词向量表示。 3. 关键字提取:通过计算句子中每个词的向量表示与一个预训练好的关键字向量之间的相似度,来确定关键字。 4. 相似度计算:常用的相似度计算方法包括余弦相似度和欧式距离。可以选择一个适合自己任务的相似度计算方法。 5. 关键字排序:根据相似度的大小,对关键字进行排序,得到搜索结果。也可以设置一个阈值,只保留相似度高于阈值的关键字。 以上是使用BERT搜索一句话关键字的基本步骤。值得注意的是,BERT模型需要大量的计算资源和较长的训练时间,在使用之前需要先进行预训练,并在特定任务上进行微调。此外,还可以结合其他算法和技术进行优化,以提升搜索的准确性和效率。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值