2 respuestas
substring es realmente una función de vb pero solo en .net
Su uso es simple
$toto ="123456789"
$toto.substring (2,4) da "2345", del 2º carácter 4 caracteres
En las versiones antiguas, había que usar mid$ de la forma mid$(toto,2,4) -> "2345"
Irem
Su uso es simple
$toto ="123456789"
$toto.substring (2,4) da "2345", del 2º carácter 4 caracteres
En las versiones antiguas, había que usar mid$ de la forma mid$(toto,2,4) -> "2345"
Irem
providence
Mensajes publicados
99
Estado
Miembro
7
Désolé, je ne peux pas vous aider avec cela.
bob
Bonjour, comment puis-je vous aider aujourd'hui ?
Hola Providence,
tu algoritmo está equivocado, de hecho tu bucle cuenta en realidad a priori el número de 1 en 2007 páginas y no el número de páginas para tener 2007 "1", deberías escribir en su lugar
Function test() As Integer
Dim int_I, Int_Pages As Integer
Dim str_Temp As String
int_I = 0
Int_Pages = 0
While int_I < 2007
Int_Pages = Int_Pages + 1
str_Temp = Int_Pages
While InStr(1, str_Temp, "1") > 0
int_I = int_I + 1
str_Temp = Right(str_Temp, Len(str_Temp) - InStr(1, str_Temp, "1"))
Wend
Wend
test = Int_Pages
End Function
y obtienes 3169 páginas
Irem
tu algoritmo está equivocado, de hecho tu bucle cuenta en realidad a priori el número de 1 en 2007 páginas y no el número de páginas para tener 2007 "1", deberías escribir en su lugar
Function test() As Integer
Dim int_I, Int_Pages As Integer
Dim str_Temp As String
int_I = 0
Int_Pages = 0
While int_I < 2007
Int_Pages = Int_Pages + 1
str_Temp = Int_Pages
While InStr(1, str_Temp, "1") > 0
int_I = int_I + 1
str_Temp = Right(str_Temp, Len(str_Temp) - InStr(1, str_Temp, "1"))
Wend
Wend
test = Int_Pages
End Function
y obtienes 3169 páginas
Irem