Como usar Split para converter uma string em um array e obter o subscrito do array value_ASP tutorial

Recomendado: Asp gera uma string aleatória de 13 dígitos
html title /title body % Functiongen_key(digits) 'Definir e inicializar o array dimchar_array(80) 'Inicializar os números Fori=0To9 char_array(i)=CStr(i) Next 'Inicializar as letras maiúsculas Fori=10To35 char_array(i)= Chr(i +55) Next 'Inicializa letras minúsculas Fori=36To61 char_array(i)=Chr

Por exemplo: no fórum, a personalidade do usuário tem múltiplas personalidades, otimista, maduro e firme, infantil e travesso, gentil e atencioso, etc. Seus valores correspondentes são 0, 1, 2, 3, 4 respectivamente. ao armazenar esses dados. String para armazenar dados em um campo de texto. O formato de armazenamento de dados é: 0|2|3|4|.

Ao usar strings de intervalo para separar vários dados, o valor máximo do subscrito da matriz gerado quando 0|2|3|4| e 0|2|3|4 são separados usando a função Split geralmente é diferente. atenção, um caractere de espaço extra será escrito na extrema direita. Desta forma, mais um dado será percorrido na saída. Para evitar esta situação, a string deve ser detectada.

Ideia:

1. Verifique se há uma string espaçadora no lado direito. Se existir, você precisa reduzir o valor máximo do subscrito da matriz em um.

2. Se não existir, retorne diretamente o subscrito máximo do array original.

Código:

DimTempStr,TempArr,TempItem

TempStr=Primeiro item 1|Segundo item 1|Terceiro item|

TempArr=Dividir(TempStr,|)

Resposta.WriteTempStr&<br/>

ForTempItem=0ToUBoundStrToArr(TempStr,UBound(TempArr),|)

Response.WriteTempArr(TempItem)&<br/>

Próximo

'************************

'Função: UBoundStrToArr

'Função: detecta o valor máximo do subscrito da string original convertida em um array

'Parâmetro: cCheckStr (string a ser detectada)

'cUBoundArr (gera o valor máximo do subscrito do array)

'cSpaceStr (string de espaçamento)

'Return: o valor máximo do subscrito do array

'************************

PublicFunctionUBoundStrToArr(ByValcCheckStr,ByValcUBoundArr,ByValcSpaceStr)

IfInstr(cCheckStr,cSpaceStr)=0Então

UBoundStrToArr=cUBoundArr

Função de saída

FimSe

DimTempSpaceStr,UBoundValue

TempSpaceStr=Mid(cCheckStr,Len(cCheckStr)-Len(cSpaceStr)+1)' Obtém o caractere de espaço no lado direito da string

IfTempSpaceStr=cSpaceStrThen'Se houver um caractere de espaço no lado direito da string, o valor do subscrito precisa ser -1

UBoundValue=cUBoundArr-1

Outro

UBoundValue=cUBoundArr

FimSe

UBoundStrToArr=UBoundValue

Função Final

Compartilhar: ASP + AJAX torna os prompts de pesquisa semelhantes aos do Google
Os arquivos principais são: Index.html implementa a função, uma caixa de texto, insere o conteúdo e implementa a função de consulta prompt search.asp, permite que o conteúdo inserido na caixa de texto seja consultado no banco de dados e depois o retorna ao cliente função de conexão de banco de dados conn.asp para implementar A parte principal do xmlhttp.jsAJAX está conectada ao banco de dados e é usada para transferir dados do cliente para o servidor e, em seguida, transferir os dados do servidor para o servidor.