delfin_1610
16 de Marzo del 2005

hola, necesito ayuda!!!!
necesito saber como leer un archivo .txt pero de dos en dos, de una osicion inicial y final, es decir tengo por ejemplo en mi archivo de texto los siguinetes numeros:

100810101008

ahora trato de leer los caracteres de dos en dos hasta la posicion 4, suponiendo que mi numero inicial es la posicion 1 y el numero final es 4, entonces quiero que lea 1008 de dos en dos y despues que me los sume mi resultado seria 18, solo que mi codigo suma 10 dos veces. mi codigo es:

Private Sub Command2_Click()
Dim FileNum, suma, N, M
Dim MyString As String

N = CInt(IniText.Text)
M = CInt(FinText.Text)

FileNum = FreeFile
Open "uno.txt" For Binary As FileNum

'Inicializa la cadena MyString a 2 espacios en blanco
For i = N To M
MyString = String(2, " ")
'Lee 2 caracteres del archivo, comenzando en la posición de byte 1
Get #FileNum, N, MyString
suma = suma + Val(MyString) & vbCrLf
Next i
Label1 = suma

Close FileNum
End Sub

donde esta mi error, por favor ayudenme!!!!!!

MAXI
16 de Marzo del 2005

hola
tu error esta en el bucle que va de uno en uno
for i=N to M step 2
MyString = String(2, " ")
Get #filenum,N,MyString
suma=suma + val(MyString) & vbcrlf
next I

delfin_1610
16 de Marzo del 2005

oh ho, ......si funciono Maxi me lee de dos en dos solo que me sigue sumando el mismo numero la cantidad que le doy en numero final. es decir:
si leo 1008 me suma el 10 dos veces y se supone que me debe sumar el 10+08...

MAXI
16 de Marzo del 2005

Ej:
for i=N to M step 2
MyString = String(2, " ")
Get #filenum,i,MyString
suma=suma + val(MyString) & vbcrlf
next I

delfin_1610
16 de Marzo del 2005

ok!!! muchas...... muchas gracias!!!
ya hizo el sistema lo que queria......
GRACIAS MAXI

MAXI
16 de Marzo del 2005

hola
cambia la variable N por la I del bucle ;-)