1. Advertising
    y u no do it?

    Advertising (learn more)

    Advertise virtually anything here, with CPM banner ads, CPM email ads and CPC contextual links. You can target relevant areas of the site and show ads based on geographical location of the user if you wish.

    Starts at just $1 per CPM or $0.10 per CPC.

Highlight keyword's array

Discussion in 'C#' started by gilgalbiblewheel, Jul 1, 2005.

  1. #1
    I need to highlight the array of the "keyword".

    <SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
    Function Highlight(strText, strFind, strBefore, strAfter)
      Dim nPos
      Dim nLen
      Dim nLenAll
      
      nLen = Len(strFind)
      nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1
    
      Highlight = strText
    
      If nLen > 0 And Len(Highlight) > 0 Then
        nPos = InStr(1, Highlight, strFind, 1)
        Do While nPos > 0
          Highlight = Left(Highlight, nPos - 1) & _
            strBefore & Mid(Highlight, nPos, nLen) & strAfter &_
             Mid(Highlight, nPos + nLen)
    
          nPos = InStr(nPos + nLenAll, Highlight, strFind, 1)
        Loop
      End If
    End Function
    </SCRIPT>
    <%
    'OPTION EXPLICIT
    Dim strText, strFind
    
    strFind=[COLOR=Red]keyword[/COLOR]
    strText=RS("text_data")
    strText= Highlight(strText, strFind,"<font color='red'><b>", "</b></font>")
    
    Response.Write strText
    %> 
    Code (markup):

    SEMrush
     
    gilgalbiblewheel, Jul 1, 2005 IP
    SEMrush
  2. T0PS3O

    T0PS3O Feel Good PLC

    Messages:
    13,220
    Likes Received:
    778
    Best Answers:
    0
    Trophy Points:
    0
    #2
    And I need to clean my room.

    Are you asking us anything?
     
    T0PS3O, Jul 1, 2005 IP
  3. jorge

    jorge Peon

    Messages:
    202
    Likes Received:
    2
    Best Answers:
    0
    Trophy Points:
    0
    #3
    do you mean that "keyword" needs to be an array, and you need to highlight each word of the array? or what
     
    jorge, Jul 1, 2005 IP
  4. gilgalbiblewheel

    gilgalbiblewheel Well-Known Member

    Messages:
    435
    Likes Received:
    0
    Best Answers:
    0
    Trophy Points:
    101
    #4
    Sorry I didn't ask my question properly, but yes that's what I'm looking for.

    Searching Example:
    Keyword= anger wrath riot

    Keyword will break apart to anger, wrath, riot
    And then highlight in the given color (red) all of them in the text searched for.
     
    gilgalbiblewheel, Jul 1, 2005 IP
  5. jorge

    jorge Peon

    Messages:
    202
    Likes Received:
    2
    Best Answers:
    0
    Trophy Points:
    0
    #5
    ok! here it goes...

    strText=RS("text_data")
    strFindarray=split(keyword, " ")
    for i=0 to ubound(strFindarray)
      strText = Highlight(strText, strFindarray(i),"<font color='red'><b>", "</b></font>")
    next
    Code (markup):
    I have not written code in classic asp for a long time (i use asp.net for 3 years now!), but i hope it helps!
    to get the idea at least! :)
     
    jorge, Jul 1, 2005 IP
  6. gilgalbiblewheel

    gilgalbiblewheel Well-Known Member

    Messages:
    435
    Likes Received:
    0
    Best Answers:
    0
    Trophy Points:
    101
    #6
    Microsoft VBScript compilation error '800a0410' 
    
    Invalid 'for' loop control variable 
    
    /wheelofgod/highlight.asp, line 30 
    
    For i = 0 to UBound(strFindarray)
    ------^
    
    Code (markup):
     
    gilgalbiblewheel, Jul 1, 2005 IP
  7. jorge

    jorge Peon

    Messages:
    202
    Likes Received:
    2
    Best Answers:
    0
    Trophy Points:
    0
    #7
    you probably need to define the variable i... dim i as integer
     
    jorge, Jul 2, 2005 IP
  8. RodgerDJr

    RodgerDJr Peon

    Messages:
    1
    Likes Received:
    0
    Best Answers:
    0
    Trophy Points:
    0
    #8
    This only works for the last keyword in the array, has anyone found a solution?

    Thank you,
    Rodger

     
    RodgerDJr, Feb 3, 2006 IP
  9. chippi

    chippi Peon

    Messages:
    194
    Likes Received:
    1
    Best Answers:
    0
    Trophy Points:
    0
    #9
    it's not related about this thread exactly but generally on the search results i use this too simple function.

    function highlight(keyword,text)
    var new_text=Replace(text,keyword,"<span class=highlight>"&keyword&"</span>")
    highlight=new_text
    end function
     
    chippi, Feb 9, 2006 IP