Bueno.. en realidad pensaba hacerlo sólo en mi disco. Pero tengo un host con Php/MySql. No lo había pensado así
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú(Type "Maestro.txt" | Findstr "^lote ^vta ^Venta")>"Maestro_.txt"
(Type "Mastercard.txt" | Findstr "^lote ^vta ^Venta")>"Mastercard_.txt"
(Type "Mc-Bancor" | Findstr "^lote ^vta ^Venta")>"Mc-Bancor_.txt"
(Type "Mc-Debit" | Findstr "^lote ^vta ^Venta")>"Mc-Debit_.txt"
Cita de: yMk369 en 20 Noviembre 2015, 23:09 PM
Bash
Bash (Bourne again shell) es un programa informático, cuya función consiste en interpretar órdenes, y un lenguaje de programación de consola. Está basado en la shell de Unix y es compatible con POSIX.
https://es.wikipedia.org/wiki/Bash
No digo, que bash no se pueda interpretar en windows,
ahora bien, ¿que SO, utilizas?, por que creo que solo estamos dando patadas de ahogado.
(Type "file.txt" | Findstr "^Liq ^Fecha Venta")>"outputFile.txt"
Sub EliminarFilas()
'Hacemos un bucle Do While el cual se ejecutará hasta que haya una celda vacía
Do While ActiveCell.Value <> ""
'La condición es que si comienza con "x_ "...
If Mid(ActiveCell.Value, 1, 3) = "x_ " Then
'... elimina la fila
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
Else
End If
'Recorre una fila hacia abajo
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sub Visa()
'
'
'
Cells.Replace What:="* Venta", Replacement:="_Visa"
Cells.Replace What:="_Visas", Replacement:="_Visa"
Cells.Replace What:="_Visa Tj. D bito", Replacement:="_Visa Débito 1"
Cells.Replace What:="Liq.", Replacement:="_Liq."
Cells.Replace What:="Fecha de presentaci n", Replacement:="_Fecha"
End Sub
Sub eliminarfilavacia()
For fila = 1 To 65536
If Cells(fila, 4).Value = "0" Then
Rows(fila).Delete
End If
Next fila
End Sub
CitarFECHA DE PAGO 02/02 Arancel $ 112,95
Pesos
Serv.Costos Financieros $ 15,32
Fecha de presentaci n 07/01
Liq. N 00065716 - Lote N 0014 Deduc.Impositivas $ 329,08
3 Ventas en 1 pago $ 1.454,97
Liq. N 00065716 - Lote N 0056
1 Venta en 1 pago $ 257,49
Liq. N 00065716 - Lote N 0078
1 Venta en 1 pago $ 734,00
Fecha de presentaci n 29/01
Liq. N 00065717 - Lote N 0022
1 Venta en 2 pagos - Plan Cuotas $ 352,40
Liq. N 00065718 - Lote N 0000
1 Venta Tj. D bito $ 197,54
Liq. N 00065718 - Lote N 0022
1 Venta Tj. D bito $ 199,45
Liq. N 00065718 - Lote N 0035
5 Ventas Tj.D bito $ 708,00
Liq. N 00065718 - Lote N 0100
5 Ventas Tj.D bito $ 681,80
Liq. N 00065718 - Lote N 0170
2 Ventas Tj.D bito $ 144,00
Total del d a $ 4.729,65 $ 457,35 $ 4.272,30
___________________________________________________
Citar
07/01 3 Ventas en 1 pago Lote N 0014 $ 1.454,97
07/01 1 Venta en 1 pago Lote N 0056 $ 257,49
07/01 1 Venta en 1 pago Lote N 0078 $ 734,00
29/01 1 Venta en 2 pagos - Plan Cuota Lote N 0022 $ 352,40
29/01 1 Venta Tj D bito Lote N 0000 $ 197,54
29/01 1 Venta Tj D bito Lote N 0022 $ 199,45
29/01 5 Ventas Tj D bito Lote N 0035 $ 708,00
29/01 5 Ventas Tj D bito Lote N 0100 $ 681,80
29/01 2 Ventas Tj D bito Lote N 0170 $ 144,00