Jump to content


Photo

[Resolvido] FunçãO Asp


  • Faça o login para participar
4 replies to this topic

#1 ** Arena Jovem **

** Arena Jovem **

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Masculino
  • Localidade:curitiba

Posted 13/05/2009, 16:27

Boa tarde Galera..

Bom estou um um probleminha


Tenho um String1=000000000

e tenho outra String2=5

preciso fazer o seguinte...


tenho que unir elas..

a primeira String1 ela possue 9 zeros, preciso que o ultimo zero seja substituido pelo valor da string2

exempro:

A STRING DEVERIA SER ASSIM:
STRING3="000000005"

PARA ISSO PRECISO DE UMA FUNÇÃO ....

ALGUEM CONHECE ALGUMA FUNÇÃO QUE FAÇA ISSO???


ABRAÇOSSS

Edição feita por: Renan L. Queiroz, 31/08/2009, 15:52.


#2 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 14/05/2009, 08:37

Procure saber sobre LEFT, RIGHT e LEN no VBScript!
Ai é só montar a lógica para que o conteúdo da string 2 altere o referente na string 1.
Referência: Funções VBScript

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#3 ** Arena Jovem **

** Arena Jovem **

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Masculino
  • Localidade:curitiba

Posted 14/05/2009, 10:08

OK quase resolvido..

usei o seguinte

var_mrc_login=1

string(8-len(var_mrc),"x") & var_mrc_login
resultado
-> (xxxxxxx1) <-

mas tem um porem esse numero não pode passar de 8 digitos , quando a var_mrc_login=10 elefica com 9 digitos

xxxxxxxx1

mas quando a var_mrc_login=11 fica ok

-> (xxxxxx11) <-


alguem ai sabe oque pode estar acontecendo??

abraçosss

Boa tarde Galera..

Bom estou um um probleminha


Tenho um String1=000000000

e tenho outra String2=5

preciso fazer o seguinte...


tenho que unir elas..

a primeira String1 ela possue 9 zeros, preciso que o ultimo zero seja substituido pelo valor da string2

exempro:

A STRING DEVERIA SER ASSIM:
STRING3="000000005"

PARA ISSO PRECISO DE UMA FUNÇÃO ....

ALGUEM CONHECE ALGUMA FUNÇÃO QUE FAÇA ISSO???

xxxxxx

ABRAÇOSSS



#4 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 14/05/2009, 10:54

Acho que isso pode lhe ajudar! ;-)
Script:
Function parametrizaLogin(login)

		Dim padrao : padrao = "00000000"
		Dim aux : aux = ""

		aux = Left(padrao, (Len(padrao) - Len(login))) & login
		parametrizaLogin = aux

	End Function

	Dim login1 : login1 = "1"
	Dim login2 : login2 = "10"
	Dim login3 : login3 = "11"
	Dim login4 : login4 = "200"
	Dim login5 : login5 = "1500"

	response.write "Login1: "& parametrizaLogin(login1) &"<br/>" &_
				   "Login2: "& parametrizaLogin(login2) &"<br/>" &_
				   "Login3: "& parametrizaLogin(login3) &"<br/>" &_
				   "Login4: "& parametrizaLogin(login4) &"<br/>" &_
				   "Login5: "& parametrizaLogin(login5) &"<br/>"
Retorno:
Login1: 00000001
Login2: 00000010
Login3: 00000011
Login4: 00000200
Login5: 00001500
Faça uns testes e confirme se estiver ok, mas se achar erro "melhor ainda" que ai a função fica legal (sem erros)!
Como disse um grande Gerente de Proj.: " Um bom testador é aquele que encontra erro no sistema 'perfeito'! "

Edição feita por: Renan L. Queiroz, 14/05/2009, 11:00.

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#5 ** Arena Jovem **

** Arena Jovem **

    Novato no fórum

  • Usuários
  • 20 posts
  • Sexo:Masculino
  • Localidade:curitiba

Posted 14/05/2009, 16:30

Valeu Renan ..

Eu consegui resolver de outra maneira...

da uma olhada ai!!!!


abraçossss

seleciona o ano
			   var_fun_data=CStr(year(now))  
		seleciona os dois ultimos digitos do ano
				   var_ano_login=Right(var_Fun_Data,2)
	 
	 var_login_ano="M"&var_ano_login
	 var_login= var_login_ANO & string(8-len(var_mrc_login),"0") & var_mrc_login


	sql="select ms_codigo from mercosul_sequencial"
			rs_mrc=func_open(sql,1)
			if isarray(rs_mrc) then
				var_mrc=rs_mrc(0,0)
			end if
		

		var_mrc_login=var_mrc+1


		   e Por Fim 
				 
					var_login_ano="M"&var_ano_login
		var_login= var_login_ANO & string(8-len(var_mrc_login),"0") & var_mrc_login

Acho que isso pode lhe ajudar! ;-)
Script:

Function parametrizaLogin(login)

		Dim padrao : padrao = "00000000"
		Dim aux : aux = ""

		aux = Left(padrao, (Len(padrao) - Len(login))) & login
		parametrizaLogin = aux

	End Function

	Dim login1 : login1 = "1"
	Dim login2 : login2 = "10"
	Dim login3 : login3 = "11"
	Dim login4 : login4 = "200"
	Dim login5 : login5 = "1500"

	response.write "Login1: "& parametrizaLogin(login1) &"<br/>" &_
				   "Login2: "& parametrizaLogin(login2) &"<br/>" &_
				   "Login3: "& parametrizaLogin(login3) &"<br/>" &_
				   "Login4: "& parametrizaLogin(login4) &"<br/>" &_
				   "Login5: "& parametrizaLogin(login5) &"<br/>"
Retorno:
Login1: 00000001
Login2: 00000010
Login3: 00000011
Login4: 00000200
Login5: 00001500
Faça uns testes e confirme se estiver ok, mas se achar erro "melhor ainda" que ai a função fica legal (sem erros)!
Como disse um grande Gerente de Proj.: " Um bom testador é aquele que encontra erro no sistema 'perfeito'! "






1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq