Función de división de VB, ¿cómo dividir en función de varias cadenas?
Divídalos por separado. Si hay:
DIM x() COMO CADENA, y() como cadena, s como cadena
DIM i como número entero, j como número entero
s = "a1, a2, a3; b1, b2, b3, b4"
x=split(s, ";") ' El resultado x tiene dos elementos: "a1, a2, a3" y " b1, b2, b3, b4"
para i=LBOUND(X) TO UBOUND(X)
y=split(x(i), ","")
para j=LBOUND(y) a UBOUND(y)
imprime y(j),
siguiente j
imprime
siguiente yo