当前位置：首页 > 行业动态 > 正文

如何使用CreateKeyWord asp实现从给定字符串生成关键字？

admin
行业动态
2025-01-16
2961

在ASP中，可以使用以下代码来生成关键字：，，“ asp，Function CreateKeyWord(inputStr)， Dim words, word, i, keyword， words = Split(inputStr, " ")， keyword = ""， For i = 0 To UBound(words)， word = Trim(words(i))， If Len(word) > 0 Then， keyword = keyword & Left(word, 1)， End If， Next， CreateKeyWord = UCase(keyword)，End Function，“，，这个函数将输入字符串按空格分割成单词，然后取每个单词的首字母并组合成关键字。

在ASP（Active Server Pages）中实现一个由给定字符串生成关键字的功能，可以通过以下步骤完成，这个过程包括清理输入字符串、分词、去重和排序等操作，以下是详细的代码示例和解释：

如何使用CreateKeyWord asp实现从给定字符串生成关键字？第1张

准备工作

我们需要创建一个ASP页面来处理输入的字符串并生成关键字，假设我们有一个名为CreateKeyWord.asp的文件。

获取输入字符串

我们从用户那里获取输入的字符串，这可以通过表单提交或者直接在URL参数中传递。

<%
Dim inputString
inputString = Request.Form("inputString")
If inputString = "" Then
    inputString = "这是一个测试字符串，用于生成关键字。"
End If
%>

清理输入字符串

为了确保生成的关键字是有效的，我们需要对输入字符串进行一些基本的清理操作，比如去除标点符号、转换为小写等。

Function CleanString(str)
    Dim regEx, matches
    Set regEx = New RegExp
    regEx.Global = True
    regEx.IgnoreCase = True
    regEx.Pattern = "[^ws]" ' 匹配所有非字母数字字符
    CleanString = regEx.Replace(str, "")
    Set regEx = Nothing
End Function
inputString = CleanString(inputString)
inputString = LCase(inputString) ' 转换为小写

分词

将清理后的字符串分割成单词数组，这里我们使用空格作为分隔符。

Function SplitIntoWords(str)
    Dim words, wordArray
    words = Trim(str)
    wordArray = Split(words, " ")
    SplitIntoWords = wordArray
End Function
Dim wordsArray
wordsArray = SplitIntoWords(inputString)

去重和排序

为了生成唯一的关键字列表，我们需要去除重复的单词并进行排序，我们可以使用字典对象来实现这一点。

Function GetUniqueSortedWords(wordArray)
    Dim dict, uniqueWords, i, sortedWords
    Set dict = CreateObject("Scripting.Dictionary")
    
    For i = 0 To UBound(wordArray)
        If Not dict.Exists(wordArray(i)) And Len(wordArray(i)) > 0 Then
            dict.Add wordArray(i), Nothing
        End If
    Next
    
    uniqueWords = dict.Keys()
    Set dict = Nothing
    
    ' 排序
    Call QuickSort(uniqueWords, 0, UBound(uniqueWords))
    GetUniqueSortedWords = uniqueWords
End Function
Function QuickSort(arr, low, high)
    Dim i, j, pivot, temp
    i = low
    j = high
    pivot = arr((low + high)  2)
    
    Do While (i <= j)
        Do While (arr(i) < pivot)
            i = i + 1
        Loop
        Do While (arr(j) > pivot)
            j = j 1
        Loop
        If (i <= j) Then
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
            i = i + 1
            j = j 1
        End If
    Loop
    
    If (low < j) Then QuickSort arr, low, j
    If (i < high) Then QuickSort arr, i, high
End Function
Dim uniqueSortedWords
uniqueSortedWords = GetUniqueSortedWords(wordsArray)

输出结果

我们将生成的关键字输出到页面上。

Response.Write("<h2>生成的关键字:</h2>")
Response.Write("<ul>")
For Each word In uniqueSortedWords
    Response.Write("<li>" & word & "</li>")
Next
Response.Write("</ul>")

完整代码示例

以下是完整的ASP代码示例：

<%@ Language=VBScript %>
<%
Dim inputString
inputString = Request.Form("inputString")
If inputString = "" Then
    inputString = "这是一个测试字符串，用于生成关键字。"
End If
%>
<!DOCTYPE html>
<html>
<head>
    <title>生成关键字</title>
</head>
<body>
    <form method="post">
        <label for="inputString">输入字符串:</label>
        <input type="text" id="inputString" name="inputString" value="<%= inputString %>">
        <input type="submit" value="生成关键字">
    </form>
    <hr>
    <%
    Function CleanString(str)
        Dim regEx, matches
        Set regEx = New RegExp
        regEx.Global = True
        regEx.IgnoreCase = True
        regEx.Pattern = "[^ws]" ' 匹配所有非字母数字字符
        CleanString = regEx.Replace(str, "")
        Set regEx = Nothing
    End Function
    Function SplitIntoWords(str)
        Dim words, wordArray
        words = Trim(str)
        wordArray = Split(words, " ")
        SplitIntoWords = wordArray
    End Function
    Function GetUniqueSortedWords(wordArray)
        Dim dict, uniqueWords, i, sortedWords
        Set dict = CreateObject("Scripting.Dictionary")
        
        For i = 0 To UBound(wordArray)
            If Not dict.Exists(wordArray(i)) And Len(wordArray(i)) > 0 Then
                dict.Add wordArray(i), Nothing
            End If
        Next
        
        uniqueWords = dict.Keys()
        Set dict = Nothing
        
        ' 排序
        Call QuickSort(uniqueWords, 0, UBound(uniqueWords))
        GetUniqueSortedWords = uniqueWords
    End Function
    Function QuickSort(arr, low, high)
        Dim i, j, pivot, temp
        i = low
        j = high
        pivot = arr((low + high)  2)
        
        Do While (i <= j)
            Do While (arr(i) < pivot)
                i = i + 1
            Loop
            Do While (arr(j) > pivot)
                j = j 1
            Loop
            If (i <= j) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
                i = i + 1
                j = j 1
            End If
        Loop
        
        If (low < j) Then QuickSort arr, low, j
        If (i < high) Then QuickSort arr, i, high
    End Function
    %>
    <%
    inputString = CleanString(inputString)
    inputString = LCase(inputString) ' 转换为小写
    Dim wordsArray
    wordsArray = SplitIntoWords(inputString)
    Dim uniqueSortedWords
    uniqueSortedWords = GetUniqueSortedWords(wordsArray)
    %>
    <h2>生成的关键字:</h2>
    <ul>
        <% For Each word In uniqueSortedWords %>
            <li><%= word %></li>
        <% Next %>
    </ul>
</body>
</html>