função pega parte de string usando parametros

[lella 0]

Olha eu aqui.... :P

 

pessoal ha alguns anos fiz uma função para pegar apenas parte das urls.

Hoje queria usar esta função mas não encontrei mais no meu pc, ou melhor no que sobrou dele.

fiz alguns testes , mas não me lembro como buscar determinado caracter para pegar o que vem antes

 

ex.:

<% url = "http://forum.imasters.com.br/index.php"%>
'retorna o numero de caracteres - no caso [52]
<%= len(url) %><br><br>
'retorna os 7 primeiros caracteres - no caso [http://]
<%= mid(url,1,7) %><br><br>
'retorna os 4 caracteres seguintes - no caso [foru] - (se houvesse www. pegaria [www.])
<%= mid(url,8,4) %><br><br>

Agora o que preciso é verificar a continuação da url neste caso até achar o segundo "."

para poder pegar "forum.imasters"

 

em outros casos achar o primeiro "." - quando houver www [http://www.uol.com.br]

 

help please :o

[DSerma 19]

Para procurar texto em strings, utilize o InStr(var, texto a ser buscado)

 

Att;

[lella 0]

Para procurar texto em strings, utilize o InStr(var, texto a ser buscado)

 

Att;

 

<% url = "http://forum.imasters.com.br/index.php"%>
'retorna - no caso o numero [13]
<%= InStr(link,".") %>

ou seja o primeiro "." esta na 13ª posição

se eu fosse pegar isso iria retornar apenas [forum] e não [forum.imasters] http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[DSerma 19]

Ta.. só que eu nao entendi muito bem oq você qr...

 

você precisa pegar exatamente oq na string de exemplo ?

 

você diz que precisa pegar até o segundo ".", mas depois diz que tb vai precisar pegar só o primeiro... ai já não entendi.. hehehe

 

Oq pode ser feito é utilizar duas vezes o InStr().... você pega o numero do primeiro ".", depois utiliza novamente o InStr() para pegar o proximo "." depois dele.... ou pode usar o Split() para separar a String por "." tb....

 

Att;

[lella 0]

quero pegar apenas o nome do site

a variação dos pontos etc se da por urls diferentes exemplos abaixo:

 

 

http://forum.imasters.com.br/index.php - [forum.imasters] 2º ponto

 

http://www.uol.com.br - [uol] 1º ponto

 

http://forums.mvgroup.org/ - [forums.mvgroup] 2º ponto

 

http://www.ssp.sp.gov.br - [ssp.sp] 2º ponto

 

http://h.ackack.net/cheat-sheets/postgresql - [h.ackack] 2º ponto

[augustoclaro 2]

use o split:

 

<%
url = "http://forum.imasters.com.br/index.php"
arr = split(url,".")
response.write arr(0)&"."&arr(1)
%>

Espero que te ajude.

[lella 0]

vou fazer uns testes e depois retorno... :huh:

[lella 0]

resolvi pegar o endereço completo mesmo... :angry:

[xanburzum 169]

A URL completa de uma página tem três partes, nome de domínio, o caminho para o arquivo e nome do arquivo e QueryString. Por exemplo:

http://www.teste.com....asp?nome=teste.

 

Abaixo as três partes:

 

1. O nome de domínio: www.teste.com

2. O caminho para a página: / exemplo / pagina.asp

3. O QueryString: nome= teste

 

para encontrar todas as partes fazemos:

 

<%@language="VBScript"%>
<%
  Dim strDomain, strPath, strQueryString, strURL
  ‘ descobrir o domínio:
  strDomain = Request.ServerVariables("HTTP_HOST")
  ‘ caminho para o arquivo atual
  strPath = Request.ServerVariables("URL")
  ‘ descobrir a QueryString
  strQueryString = Request.ServerVariables("QUERY_STRING")
  ‘ juntar tudo
  strURL = "http://" & strDomain & strPath & "?" & strQueryString
  Response.Write "A URL atual é: " & strURL
%>

[Patrique 0]

Esse tópico ainda não foi resolvido galera, favor desmarcarem o resolvido dele.

 

Tenho uma função aqui que pode te ajudar

 

<%
Function caractere(valor,posicao)

   If valor = "" Or valor = True Or valor = False Or IsNull(valor) Then
      caractere = False
      Exit Function
   End If

   If (Not Isnumeric(posicao)) Then
      caractere = False
      Exit Function
   End If

   valor = Mid(valor,posicao,1)
   caractere = valor

End Function

Response.Write caractere("patrique",5)
%>

Neste caso ela me retorna determinado caractere em determinada posição na qual eu especifico.

 

[]'s

[augustoclaro 2]

amigo você testou do jeito que eu lhe falei anteriormente?

[xanburzum 169]

aqui outros exemplos de funções para manipular strings