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.
(http://s6.uploads.ru/fnBCG.jpg)
si alguien tiene los conocimientos para realizar este pequeño programa porfavor comenten para poder agregarlo y que me guien en este proyecto.
hola estudialo y trata de entenderlo al menos.
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
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.
Yo use el siguiente codigo pero el resultado no incluye un enumerador automatico como el que tu realizaste:
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.