[Resolvido] Text Area

DW_MX · Fevereiro 4, 2009

seguinte tenho o text area e to recuperando o valor para salvar no banco so que preciso corrigir se a linha vier em branco. vou expliar melhor

_________________

Recuperando
Codigo = Resquest("Codigo")

Codigos = Split(Codigo,CHR(13))
For i=0 to Ubound(Codigos)

SQL = "INSERT INTO Tabela (Valor) VALUES ('" & Codigos(i) & "')"
Conn.Execute(SQL)

Next

_________________

acontece que os usuarios digitam la no text area

exemplo:

123456

deu enter e ficou em branco deu enter e digitou a linha abaixo

236589

entao ficou a linha em branco

quando salva cadastra as tres linhas digitadas e a que vai em branco nao pode

ou eu tenho que arrumar um jeito de falar que os codigos estao errado porque tem

uma linha em branco ou salvar so as duas e nao salvar a que ta em branco

como resolver galera.. obrigado desde ja...

Luciano

jrcardozo · Fevereiro 4, 2009

antes de inserir

If Trim(Codigos(i) & "") <> "" Then
'insere no banco
End If

DW_MX · Fevereiro 4, 2009

antes de inserir

If Trim(Codigos(i) & "") <> "" Then

'insere no banco

End If

Não fucionou ta inserindo um branco do mesmo jeito

Ted k' · Fevereiro 4, 2009

só que esse pular linha é o chr(13), terá que colocar ele na função que o jon citou, o IF

DW_MX · Fevereiro 4, 2009

não entendi Ted, a função que o JO mim passou nao fucionou

so para testar usei desta forma

If Trim(Codigos(i) & "") <> "" Then
Response.Write("errado")
Response.End()
End if

para ver se ia mim retornar ele passou direto

Ted k' · Fevereiro 4, 2009

tipo isso:

<%
Codigo = Request("Codigo")

Codigos = Split(Codigo,CHR(13))
For i=0 to Ubound(Codigos)
if ""&Codigos(i)&"" <> ""&chr(13)&"" then
SQL = "INSERT INTO Tabela (Valor) VALUES ('" & Codigos(i) & "')"
Conn.Execute(SQL)
end if
Next
%>

DW_MX · Fevereiro 4, 2009

não entendi Ted, a função que o JO mim passou nao fucionou

so para testar usei desta forma
If Trim(Codigos(i) & "") <> "" Then
Response.Write("errado")
Response.End()
End if
para ver se ia mim retornar ele passou direto

uma outra ideia que tive foi a seguinte

os codigos que vao vim do text area pode ser só 15 caracteres numeros

entao talvez seria mais facil eu analisar se ta vindo numerdo do text area e se sáo 15 digitos se for cadastra no banco senao codigo invalido... algo assim que preciso mas como corrigir to quebrando a cabeça. ou eliminar o espaço em branco do text area em array. qualquer um pra mim ajuda demais... grato

DW_MX · Fevereiro 4, 2009

olhe ai o codigo todo

<!--#include file="include/config.asp" -->
<%
Imei = Request.form("Imei")
Modelo = Request.form("Modelo")
If Imei = "" Then
	Response.Write("Favor Adicionar um Código de Imei<br><a href=""java script:history.back(1)"">Voltar</a>")
	Response.End()
End If
Codigos = Split(Imei,CHR(13))
cod = 1 + Ubound(Codigos)
If Modelo <> "Motorola" Then
Set RSCheck = ObjCon.Execute("Select credito From login Where Credito >="&cod&" And Id_user="&session("Id_user"))
If Not RSCheck.Eof Then
		For i=0 to Ubound(Codigos)
		if ""&Codigos(i)&"" <> ""&chr(13)&"" then
		ObjCon.Execute("Insert Into pedido(IdUser,NomeUsuario,Imail,Data,Modelo) Values('"&session("Id_user")&"','"&session("Usuario")&"','" & Codigos(i) & "','"&Year(Date)&"-"&Month(Date)&"-"&Day(Date)&"','" & Modelo & "')")
		end if
		Next
		response.Redirect("Msg.asp")
		End if
Else
Set RSCheck = ObjCon.Execute("Select credito From login Where Credito >="&cod&" And Id_user="&session("Id_user"))
If Not RSCheck.Eof Then
		For i=0 to Ubound(Codigos)
		ObjCon.Execute("Insert Into pedido(IdUser,NomeUsuario,Imail,Data,Modelo) Values('"&session("Id_user")&"','"&session("Usuario")&"','" & Codigos(i) & "','"&Year(Date)&"-"&Month(Date)&"-"&Day(Date)&"','" & Modelo & "')")
		Next
		ObjCon.Execute("Update login Set credito=credito-"&cod&" Where Id_user="&session("Id_user"))
		response.Redirect("Msg.asp")
	Else
		Response.Write("Saldo insuficiente ou quantidade de crédito menor que quantidade de código postado<br><a href=""java script:window.close();"">Fechar</a>")
		Response.End()
	End If
Set ObjCon = Nothing
End If 
%>

ta fucionando normal cadastrando e tudo o problema é so a linha em branco. que nao pode ir para o banco

Ted k' · Fevereiro 4, 2009

<!--#include file="include/config.asp" -->
<%
Imei = Request.form("Imei")
Modelo = Request.form("Modelo")
If Imei = "" Then
	Response.Write("Favor Adicionar um Código de Imei<br><a href=""java script:history.back(1)"">Voltar</a>")
	Response.End()
End If
Codigos = Split(Imei,CHR(13))
cod = 1 + Ubound(Codigos)
If Modelo <> "Motorola" Then
Set RSCheck = ObjCon.Execute("Select credito From login Where Credito >="&cod&" And Id_user="&session("Id_user"))
If Not RSCheck.Eof Then
		For i=0 to Ubound(Codigos)
		if cstr(replace(Codigos(i), chr(13), "<br>")) <> "<br>" then
		ObjCon.Execute("Insert Into pedido(IdUser,NomeUsuario,Imail,Data,Modelo) Values('"&session("Id_user")&"','"&session("Usuario")&"','" & Codigos(i) & "','"&Year(Date)&"-"&Month(Date)&"-"&Day(Date)&"','" & Modelo & "')")
		end if
		Next
		response.Redirect("Msg.asp")
		End if
Else
Set RSCheck = ObjCon.Execute("Select credito From login Where Credito >="&cod&" And Id_user="&session("Id_user"))
If Not RSCheck.Eof Then
		For i=0 to Ubound(Codigos)
		if cstr(replace(Codigos(i), chr(13), "<br>")) <> "<br>" then
		ObjCon.Execute("Insert Into pedido(IdUser,NomeUsuario,Imail,Data,Modelo) Values('"&session("Id_user")&"','"&session("Usuario")&"','" & Codigos(i) & "','"&Year(Date)&"-"&Month(Date)&"-"&Day(Date)&"','" & Modelo & "')")
		end if
		Next
		ObjCon.Execute("Update login Set credito=credito-"&cod&" Where Id_user="&session("Id_user"))
		response.Redirect("Msg.asp")
	Else
		Response.Write("Saldo insuficiente ou quantidade de crédito menor que quantidade de código postado<br><a href=""java script:window.close();"">Fechar</a>")
		Response.End()
	End If
Set ObjCon = Nothing
End If
%>

veja ai!

DW_MX · Fevereiro 4, 2009

cadastrou em branco

por um acaso nao seria mais facil nos limitarmos o numero de digitos. exemplo se digitar menos de 15 digitos ele da codigo errado.

oque voce acha. ? ou melhor irmos por este caminho que estamos tentando...

Bruno Grasselli · Fevereiro 4, 2009

Saudações pessoal,

Não sei se entendi direito a sua pergunta, mas você tem uma string que só tem quebras de linha e deseja identificar ela. É isso?

Se for você pode fazer algo assim, imaginando que a variável "linha" contém seu texto em branco:

linha = replace(linha, chr(10), "")
linha = replace(linha, chr(13), "")
linha = trim(linha)

if linha = "" then
   response.write "Linha em branco"
end if

Não tenho certeza se o trim remove chr(10) e chr(13), por isso dei os replaces.

Se for isso mesmo que você deseja faz um teste, de repente da certo.

Abraços.

DW_MX · Fevereiro 4, 2009

oque eu quero é limpar o espaço em branco o problema é que puxando linha por linha do text area ele nao quer tirar de jeito nenhum.

Bruno Grasselli · Fevereiro 4, 2009

Hummm, você tem um text area e quer eliminar as linhas em branco??

Que tal algo assim:

texto = request.form("campodotextarea")

linhas = split(texto, chr(10))

for i = 0 to ubound(linhas)
   linha = replace(linhas[i], chr(13), "")
   linha = trim(linha)
   if linha <> "" then
	  resultado = resultado & linha & chr(10)
   end if
next

Ps. não testei o código.

Ps2. Editei o código porque tinha escrito um negócio errado.

Ps3. Editei de novo.

DW_MX · Fevereiro 4, 2009

o negocio é que o trim parace que nao fuciona no array

Bruno Grasselli · Fevereiro 4, 2009

Faz assim, posta como ficou seu código pra gente dar uma olhada.

DW_MX · Fevereiro 4, 2009

<!--#include file="include/config.asp" -->

<%

Imei = Request.form("Imei")

Modelo = Request.form("Modelo")

If Imei = "" Then

Response.Write("Favor Adicionar um Código de Imei<br><a href=""java script:history.back(1)"">Voltar</a>")

Response.End()

End If

Codigos = Split(Imei,CHR(13))

cod = 1 + Ubound(Codigos)

If Modelo <> "Motorola" Then

Set RSCheck = ObjCon.Execute("Select credito From login Where Credito >="&cod&" And Id_user="&session("Id_user"))

If Not RSCheck.Eof Then

For i=0 to Ubound(Codigos)

if ""&Codigos(i)&"" <> ""&chr(13)&"" then

ObjCon.Execute("Insert Into pedido(IdUser,NomeUsuario,Imail,Data,Modelo) Values('"&session("Id_user")&"','"&session("Usuario")&"','" & Codigos(i) & "','"&Year(Date)&"-"&Month(Date)&"-"&Day(Date)&"','" & Modelo & "')")

end if

End if

Else

Set RSCheck = ObjCon.Execute("Select credito From login Where Credito >="&cod&" And Id_user="&session("Id_user"))

If Not RSCheck.Eof Then

For i=0 to Ubound(Codigos)

ObjCon.Execute("Insert Into pedido(IdUser,NomeUsuario,Imail,Data,Modelo) Values('"&session("Id_user")&"','"&session("Usuario")&"','" & Codigos(i) & "','"&Year(Date)&"-"&Month(Date)&"-"&Day(Date)&"','" & Modelo & "')")

response.Redirect("Msg.asp")

Else

Response.Write("Saldo insuficiente ou quantidade de crédito menor que quantidade de código postado<br><a href=""java script:window.close();"">Fechar</a>")

Response.End()

End If

Set ObjCon = Nothing

End If

%>

hargon · Fevereiro 4, 2009

Mantenha seu FOR assim:

For i=0 to Ubound(Codigos)

Codigos(i) = replace(Codigos(i),vbCrLf,"")

ObjCon.Execute("Insert Into pedido(IdUser,NomeUsuario,Imail,Data,Modelo) Values('"&session("Id_user")&"','"&session("Usuario")&"','" & Codigos(i) & "','"&Year(Date)&"-"&Month(Date)&"-"&Day(Date)&"','" & Modelo & "')")

DW_MX · Fevereiro 4, 2009

For i=0 to Ubound(Codigos)
   		 Codigos(i) = replace(Codigos(i),vbCrLf,"")
		ObjCon.Execute("Insert Into pedido(IdUser,NomeUsuario,Imail,Data,Modelo) Values('"&session("Id_user")&"','"&session("Usuario")&"','" & Codigos(i) & "','"&Year(Date)&"-"&Month(Date)&"-"&Day(Date)&"','" & Modelo & "')")
		Next
		response.Redirect("Msg.asp")
		End if

não fucionou ele inseriu em branco normalmente, nao bloqueou

hargon · Fevereiro 4, 2009

Tenta:

For i=0 to Ubound(Codigos)
	Codigos(i) = replace(Codigos(i),vbCrLf,"")
	If (Codigos(i) <> vbCrLf) Then
	ObjCon.Execute("Insert Into pedido(IdUser,NomeUsuario,Imail,Data,Modelo) Values('"&session("Id_user")&"','"&session("Usuario")&"','" & Codigos(i) & "','"&Year(Date)&"-"&Month(Date)&"-"&Day(Date)&"','" & Modelo & "')")
	End If
Next

DW_MX · Fevereiro 4, 2009

If Not RSCheck.Eof Then
		For i=0 to Ubound(Codigos)
		 Codigos(i) = replace(Codigos(i),vbCrLf,"")
	If (Codigos(i) <> vbCrLf) Then

		ObjCon.Execute("Insert Into pedido(IdUser,NomeUsuario,Imail,Data,Modelo) Values('"&session("Id_user")&"','"&session("Usuario")&"','" & Codigos(i) & "','"&Year(Date)&"-"&Month(Date)&"-"&Day(Date)&"','" & Modelo & "')")
		End If
		Next
		response.Redirect("Msg.asp")
		End if

nao fucionou,

kra nunca passei por isso, to quebrando a cabeça mesmo com este cadastro.

ele cadastrou normal e cadastrou em branco.

Arquivado

[Resolvido] Text Area

Recommended Posts

DW_MX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

DW_MX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

DW_MX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

DW_MX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

DW_MX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

DW_MX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Bruno Grasselli 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

DW_MX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Bruno Grasselli 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

DW_MX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Bruno Grasselli 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

DW_MX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

DW_MX 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

DW_MX 0