colocar aspas simples em string

[rafa-martin 2]

pessoal eu tenho os seguintes dados:

 

3800556536,

3800559551,

3800559476,

3800565143,

3800562574,

3800563747,

3800560256,

3800560867,

3800560555,

3800562253,

3800560355,

3800561598,

3800560269,

 

como eu faço após clicar num botão, para colocar aspas simples no inicio e no fim da string? aí ficaria assim:

 

'3800556536',

'3800559551',

'3800559476',

'3800565143',

'3800562574',

'3800563747',

'3800560256',

'3800560867',

'3800560555',

'3800562253',

'3800560355',

'3800561598',

'3800560269',

[Erich VB 0]

Não sei se entendi. Isto ajuda?

Dim Variavel1 As String

Variavel1 = "3800560555"
Text1.Text= " ‘" & Variavel1 & "’ "

[scorpio 7]

Dim x() as string
x() = Split("a,a,a,a,a", ",")
	Dim y As String
	
	y = "'" & Join(x, "','") & "'"
	
	MsgBox y

tente desse jeito.

[rafa-martin 2]

scorpio saiu errado.

 

saiu assim:

 

'3800556536','

3800559551','

3800559476','

3800565143','

3800562574','

3800563747','

3800560256','

3800560867','

3800560555','

3800562253','

3800560355','

3800561598','

3800560269',''

 

tem q sair assim:

 

'3800556536',

'3800559551',

'3800559476',

'3800565143',

'3800562574',

'3800563747',

'3800560256',

'3800560867',

'3800560555',

'3800562253',

'3800560355',

'3800561598',

'3800560269',

 

fiz isso e não rolou.

 

Dim x() As String

x() = Split(rtf.Text, ",")

Dim y As String

 

y = "'" & Join(x, "','") & "'"

 

rtf.Text = y

[scorpio 7]

só pq hj estou bonzinho hein...

 

x() = Split(Replace("a,a,a,a,a", vbCrLf, ""), ",")
	Dim y As String
	
	y = "'" & Join(x, "'," & vbCrLf & "'") & "'"
	
	MsgBox y

[rafa-martin 2]

então cara scopio está dando erro nessa linha:

 

x() = Split(Replace(rtf.Text, vbCrLf, ""), ",")

 

é erro no x() =

 

o erro é: sub ou funcion not defined.

 

pq?

[scorpio 7]

faltou a declaração da variavel.

[rafa-martin 2]

então eu declarei a varivael e está dando subscript of range, pq?

 

Dim x

 

x() = Split(Replace(rtf.Text, vbCrLf, ""), ",")

Dim y As String

 

y = "'" & Join(x, "'," & vbCrLf & "'") & "'"

 

MsgBox y

[scorpio 7]

Coloca a declaração do jeito que está no primeiro post com o código.

[Altevir 0]

Bom Dia !!!

Sou novo em programaçao em VB tambem, mas ve se isso ajudaria....

 

Suponhamos que você tenha esses valores em uma textbox1 ou label, ai você repassaria esse valor ja com as strings e virgula para o textbox2, entao poderia fazer assim:

 

text1 = "123456789"

 

Private Sub Command1_Click()

Text2 = Format(Text1, "'00000000'") & ","

 

End Sub

 

Resultado:

'123456789',