[Resolvido] Adicionando uma seqüência de caracteres

[xanburzum 169]

A função AddChar é usada para adicionar uma seqüência de caracteres. Existem três

argumentos necessários : Entrada de Adição, Local.

 

O argumento de entrada é a seqüência de manipular. O argumento é uma adição

string de texto para acrescentar ao input string. A localização é um argumento muito

valor que representa o local para adicionar o texto especificado, para além de Entrada

string.

 

sintaxe:

 

string = AddChar(Entrada , Adição, Local)

 

exemplo:

 

<%
dim txt
txt= "Ajudem-me! com o computador"

 '", não consigo sair " para o final de uma string
Response.Write AddChr(txt, ", não consigo sair", Len(a)) & "<BR>"
 ' returns: "Ajudem-me! com o computador, não consigo sair"

%>

 

code:

 

<%
Private Function AddChar(byVal string, byVal Adição, byVal Local)
	Dim leftString, rightString
	On Error Resume Next
	leftString = Left(string, Local)
	If Err Then 
		leftString = ""
		Local= 0
	End If
	rightString = Mid(string, Local+ 1)
	AddChar = leftString & Adição & rightString
	On Error GoTo 0
End Function
%>