HOla tengo este problema tengo un archivo (pedidos.txt) y necesito leer cual es el ultimo nro de pedido que se realizo. yo guardo todo como string en el archivo
les dejo un fragmentod el codigo
Sub Button24_Click
Dim escribir As TextWriter
Dim leerp As TextReader
Dim lineap As String
Dim LINEA_W As String
Dim hora,fecha As String
Dim nropedido,upedido As Int
' Sobreescribe línea
upedido = 0
directorio = File.DirRootExternal
If File.Exists(directorio,arch_pedidos) Then
leerp.Initialize(File.OpenInput(directorio, arch_pedidos))
lineap = leerp.ReadLine
Do While lineap <> Null
lineap = leerp.ReadLine
If lineap <> Null Then
Finaln1 = lineap.IndexOf2(";",0)
upedido = Linea.SubString2(0,Finaln1).Trim
End If
Loop
leerp.Close
End If
nropedido = upedido+1
escribir.Initialize(File.OpenOutput(directorio, arch_pedidos, True))
For loko = 0 To 20
If ma_pedido(loko).precio= 0.00 Then
Exit
Else
hora = DateTime.Time(DateTime.Now)
fecha =DateTime.Date(DateTime.Now)
LINEA_W = nropedido&";"&codigo_cliente & ";" & ma_pedido(loko).codigoa & ";" & ma_pedido(loko).articulo & ";" & ma_pedido(loko).ub & ";" & NumberFormat(ma_pedido(loko).cantidad,0,2) &";" & NumberFormat(ma_pedido(loko).precio,0,2)&";"&hora&";"&fecha
escribir.WriteLine(LINEA_W)
End If
Next
escribir.Close
EditText1.Enabled=True
EditText1.Text = ""
EditText2.Text =""
Edittext3.Text =""
EditText1.RequestFocus
Listview21.Clear
End Sub
y otra pregunta como hago para que me continue como una misma linea cuando ellas son muy largas
por ejemplo en alaska xbase ++ solo pongo un ; y continua como si fuera la misma linea de programa.
gracias de antemano
les dejo un fragmentod el codigo
Sub Button24_Click
Dim escribir As TextWriter
Dim leerp As TextReader
Dim lineap As String
Dim LINEA_W As String
Dim hora,fecha As String
Dim nropedido,upedido As Int
' Sobreescribe línea
upedido = 0
directorio = File.DirRootExternal
If File.Exists(directorio,arch_pedidos) Then
leerp.Initialize(File.OpenInput(directorio, arch_pedidos))
lineap = leerp.ReadLine
Do While lineap <> Null
lineap = leerp.ReadLine
If lineap <> Null Then
Finaln1 = lineap.IndexOf2(";",0)
upedido = Linea.SubString2(0,Finaln1).Trim
End If
Loop
leerp.Close
End If
nropedido = upedido+1
escribir.Initialize(File.OpenOutput(directorio, arch_pedidos, True))
For loko = 0 To 20
If ma_pedido(loko).precio= 0.00 Then
Exit
Else
hora = DateTime.Time(DateTime.Now)
fecha =DateTime.Date(DateTime.Now)
LINEA_W = nropedido&";"&codigo_cliente & ";" & ma_pedido(loko).codigoa & ";" & ma_pedido(loko).articulo & ";" & ma_pedido(loko).ub & ";" & NumberFormat(ma_pedido(loko).cantidad,0,2) &";" & NumberFormat(ma_pedido(loko).precio,0,2)&";"&hora&";"&fecha
escribir.WriteLine(LINEA_W)
End If
Next
escribir.Close
EditText1.Enabled=True
EditText1.Text = ""
EditText2.Text =""
Edittext3.Text =""
EditText1.RequestFocus
Listview21.Clear
End Sub
y otra pregunta como hago para que me continue como una misma linea cuando ellas son muy largas
por ejemplo en alaska xbase ++ solo pongo un ; y continua como si fuera la misma linea de programa.
gracias de antemano