Ayuda a crear en visual basic "Generar Enlace"

[Jbryan]

Hola amigos del foro, soy un user sin conocimientos de programacion y nesecito la ayuda de uds. nesecito un programa que transforme enlaces. ejemplo:

si colocamos 4 textos en cada linea.



si alguien tiene los conocimientos para realizar este pequeño programa porfavor comenten para poder agregarlo y que me guien en este proyecto.

[LeandroA]

hola estudialo y trata de entenderlo al menos.

Código [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()
    Dim i As Integer
    Dim sLinks() As String
    Dim sResult As String
   
    sLinks = Split(Text1.Text, vbCrLf)
   
    For i = 0 To UBound(sLinks)
        If Len(sLinks(i)) Then
        sResult = sResult & "<Script>code(" & Chr$(34) & Format(i + 1, "000") & Chr$(34) & "," & _
                    Chr$(34) & sLinks(i) & Chr$(34) & ");</script>" & vbCrLf
        End If
    Next
    Text2.Text = sResult
End Sub

Private Sub Command2_Click()
    Text2.Text = vbNullString
End Sub


[Jbryan]

Hola LeandroA, como me has escrito, sin conocimientos en este programa me puse a estudiar viendo muchos tutoriales (videos y textos). estuve apunto de poder crearlo pero con esta ayuda que tu me has dado se completo mi proyecto y te lo agradezco un monton mi hermano. Gracias por todo. saludos y bendiciones.



LeandroA una pregunta amigo, como modifico el codigo para que el resultado sea el siguiente:

<script>code("Enlace 001","Text1");</script>
<script>code("Enlace 002","Text2");</script>
<script>code("Enlace 003","Text3");</script>
...
estuve intentando agregarle la palabra "Enlace" pero me da error y no entiendo muy bien el porque.

[Jbryan]

Yo use el siguiente codigo pero el resultado no incluye un enumerador automatico como el que tu realizaste:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
   Dim a() As String
   a = Split(Text1, vbNewLine)
   For i = 0 To UBound(a)
       Text2 = Text2 & "<script>code(""Enlace 00"",""" & a(i) & """);</script>" & vbNewLine
   Next i
End Sub

Private Sub Command2_Click()
   Text1 = ""
   Text2 = ""
End Sub


el resultado es el siguiente:

<script>code("Enlace 00","TEXT1");</script>
<script>code("Enlace 00","TEXT2");</script>
<script>code("Enlace 00","TEXT3");</script>

pero yo quiero que se enumere de la siguiente forma:

<script>code("Enlace 001","TEXT1");</script>
<script>code("Enlace 002","TEXT2");</script>
<script>code("Enlace 003","TEXT3");</script>



Resumiendo: con el codigo que me dejaste no se como agregarle la palabra "Enlace" delante del enumerador y con el codigo que estuve usando no se como ponerle el enumerador.