Cortar cadena delimitada por puntos
Hola estoy haciendo un vbscript, y tengo una cadena así: contabilidades.operaciones.corp
y necesito tenerla de esta forma: DC=contabilidades,DC=operaciones,DC=corp
Es posible que no siempre sea una cadena de 3 palabras, puede ser de mas, o de menos, pero siempre están delimitadas las palabras por un punto.
¿Cómo puedo hacer esto?
y necesito tenerla de esta forma: DC=contabilidades,DC=operaciones,DC=corp
Es posible que no siempre sea una cadena de 3 palabras, puede ser de mas, o de menos, pero siempre están delimitadas las palabras por un punto.
¿Cómo puedo hacer esto?
1 Respuesta
Respuesta de ifrancoz
1
Puede utilizar algo como esto :
Dim I As Byte
Dim J As Byte
Dim L As Byte
Dim M As Byte
Dim N As Byte
Dim Campo(5) As String
Private Sub Command1_Click()
Call Separar_Campos
End Sub
Private Sub Form_Load()
Text1 = "contabilidades.operaciones.corp"
End Sub
Private Sub Separar_Campos()
I = 1
J = 0
L = 0
M = 0
N = Len(Text1 )
For J = 1 To 5
L = InStr(I, Text1, ".", 1)
If L > I Then
Campo(M) = Mid(Text1, I, (L - I))
Else
If L = 0 Then
Campo(M) = Mid(Text1, I, (N - I + 1))
J = 5
End If
End If
I = L + 1
Next J
End Sub
Suerte !
Dim I As Byte
Dim J As Byte
Dim L As Byte
Dim M As Byte
Dim N As Byte
Dim Campo(5) As String
Private Sub Command1_Click()
Call Separar_Campos
End Sub
Private Sub Form_Load()
Text1 = "contabilidades.operaciones.corp"
End Sub
Private Sub Separar_Campos()
I = 1
J = 0
L = 0
M = 0
N = Len(Text1 )
For J = 1 To 5
L = InStr(I, Text1, ".", 1)
If L > I Then
Campo(M) = Mid(Text1, I, (L - I))
Else
If L = 0 Then
Campo(M) = Mid(Text1, I, (N - I + 1))
J = 5
End If
End If
I = L + 1
Next J
End Sub
Suerte !
Me funcionó perfecto!
Muchas gracias por tu ayuda, estoy acostumbrado a perl y python, y recién empecé con vbscript.
Saludos!
Muchas gracias por tu ayuda, estoy acostumbrado a perl y python, y recién empecé con vbscript.
Saludos!
