Skip to main content
mejorar formato, gramática y eliminar contexto prescindibles
Origen Enlace

trabajar Trabajar con datos de un txt

Estoy un poco perdido, en su momento, años ah. Con visual creehe creado unos formularios. Estoy y estoy intentando realizarlo en html local. tengo un archivo

Tengo unos archivos de texto como datos, creado por un programa.

c:\MAPPERS Archivo PV (.PV).
 c:\PVS Archivo PV (.PV).

ej.Ejemplo:

Necesito que cuando cargese carga la pagina me lea unel archivo c:\MAPPERS Archivo PV (.PV). y

c:\MAPPERS Archivo PV (.PV).

y si elijo otra fecha lea unel archivo c:\PVS Archivo PV (.PV).

c:\PVS Archivo PV (.PV).
</head>
<body>
    <div class="contenedor">
        <div class="cabecera">
        <img src="http://static.corp.iberia.es/atlas/img/logo_134x29.png" alt="Iberia">
        <script>
         $(function () {
             $.datepicker.setDefaults($.datepicker.regional["es"]);
             $("#datepicker").datepicker({
                 dateFormat: 'dd/mm/yy',
                 firstDay: 1
             }).datepicker("setDate", new Date());
         });
         </script>
        <h1>Webreport Airport Service </h1>v.1.0
        <BR>
        <BR>
        Selecciona Fecha:&nbsp;&nbsp;
        <input type="text" id="datepicker"/>
        <BR>
        
        <ul>
          <li>
            
            <input type="radio" name="group1" value="Vuelos de Llegada">Vuelos de Llegada<br>
                 
            </li>
            <li>
            <input type="radio" name="group1" value="Vuelos de salida" checked>Vuelos de salida<br>
            </li>
              
          </ul>
            <br>
                 
        </div>
        <P>Hora UTC</p>
        <div class="barra">
        
        
        <script type="text/javascript"> function startTime(){ today=new Date(); h=today.getUTCHours(); m=today.getMinutes(); s=today.getSeconds(); m=checkTime(m); s=checkTime(s); document.getElementById('reloj').innerHTML=h+":"+m+":"+s; t=setTimeout('startTime()',500);} function checkTime(i) {if (i<10) {i="0" + i;}return i;} window.onload=function(){startTime();} </script> <div id="reloj"></div>
         


         

        </div>
        <div class="marco"> 
            <div class="contenido">
                     
                <br>
                <table id='miTabla' class='TablaOrden'>
                    <caption>Datos Vuelos..</caption>
                    <thead>
                    <th onclick="TablaOrden.en('miTabla',0)">CIA</th>
                    <th>VUELO</th>
                    <th>DT1</th>
                    <th>DT2</th>
                    <th onclick="TablaOrden.en('miTabla',4)">STD</th>
                    <th onclick="TablaOrden.en('miTabla',5)">ETD</th>
                    <th>Coord</th>
                    </thead>
                    <tbody>
                        <TR><TD>VY</TD><TD>3001</TD><TD>BCN</TD><TD>TXL</TD><TD>1325</TD><TD>1400</TD><TD>alco</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                        <TR><TD>RGN</TD><TD>9011</TD><TD>MAD</TD><TD>BCN</TD><TD>0900</TD><TD>0900</TD><TD>speL</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                        <TR ><TD>DE</TD><TD>1052</TD><TD>HAJ</TD><TD>DUS</TD><TD>1200</TD><TD>1158</TD><TD>anaL</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                        <TR><TD>MT</TD><TD>1406</TD><TD>LGW</TD><TD>MAN</TD><TD>1500</TD><TD>1505</TD><TD>ctul</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                             
                    </tbody>
                </table>

me gustaría dependiendoDependiendo del <input type="text" id="datepicker"/> quiero que me busque en cada linea el valor fecha en formato dd/yyyy/mm.

me busque en cada linea el valor fecha en formato ddyyyymm.EnEn la fila lee desde el carácter 9 y son 8 caracteres.

Una vez tenga ese dato como probado,lea que lea de esa linea los 3 primeros carecterescaracteres y los vuelque y cree el primer tdtd y tome luego el valor pos 23 y lea los 3 caracteres y los copie en el siguiente tdtd. asíAsí varios valores.

Una vez termine la primera linea., que lea las siguientes lineas y cree sus tablas y valores.

Me gustaría que me echaran una mano. No se si existe alguna forma de poder realizar esto.

eh visto

Contents of the file:

function readSingleFile(e){var file = e.target.files[0];if(!file){return;}var reader = new FileReader();reader.onload = function(e){var contents = e.target.result;displayContents(contents);};reader.readAsText(file);}

function displayContents(contents) { var element = document.getElementById('file-content'); elementNo se si existe alguna forma de poder realizar esto.innerHTML = contents; }

document.getElementById('file-input') .addEventListener('change', readSingleFile, false); Un ejemplo que he encontrado:

Alguien me puede ir orientando

<input type="file" id="file-input" />
<h3>Contents of the file:</h3>
<pre id="file-content"></pre>
<script>
  function readSingleFile(e) {
  var file = e.target.files[0];
  if (!file) {
    return;
  }
  var reader = new FileReader();
  reader.onload = function(e) {
    var contents = e.target.result;
    displayContents(contents);
  };
  reader.readAsText(file);
}

function displayContents(contents) {
  var element = document.getElementById('file-content');
  element.innerHTML = contents;
}

document.getElementById('file-input')
  .addEventListener('change', readSingleFile, false);
</script> 

trabajar con datos de un txt

Estoy un poco perdido, en su momento, años ah. Con visual cree unos formularios. Estoy intentando realizarlo en html local. tengo un archivo de texto como datos creado por un programa.

c:\MAPPERS Archivo PV (.PV).
 c:\PVS Archivo PV (.PV).

ej.

Necesito que cuando carge la pagina me lea un archivo c:\MAPPERS Archivo PV (.PV). y si elijo otra fecha lea un archivo c:\PVS Archivo PV (.PV).

</head>
<body>
    <div class="contenedor">
        <div class="cabecera">
        <img src="http://static.corp.iberia.es/atlas/img/logo_134x29.png" alt="Iberia">
        <script>
         $(function () {
         $.datepicker.setDefaults($.datepicker.regional["es"]);
         $("#datepicker").datepicker({
         dateFormat: 'dd/mm/yy',
         firstDay: 1
         }).datepicker("setDate", new Date());
         });
         </script>
        <h1>Webreport Airport Service </h1>v.1.0
        <BR>
        <BR>
        Selecciona Fecha:&nbsp;&nbsp;
        <input type="text" id="datepicker"/>
        <BR>
        
        <ul>
          <li>
            
            <input type="radio" name="group1" value="Vuelos de Llegada">Vuelos de Llegada<br>
             
            </li>
            <li>
            <input type="radio" name="group1" value="Vuelos de salida" checked>Vuelos de salida<br>
            </li>
           
          </ul>
            <br>
             
        </div>
        <P>Hora UTC</p>
        <div class="barra">
        
        
        <script type="text/javascript"> function startTime(){ today=new Date(); h=today.getUTCHours(); m=today.getMinutes(); s=today.getSeconds(); m=checkTime(m); s=checkTime(s); document.getElementById('reloj').innerHTML=h+":"+m+":"+s; t=setTimeout('startTime()',500);} function checkTime(i) {if (i<10) {i="0" + i;}return i;} window.onload=function(){startTime();} </script> <div id="reloj"></div>
         


         

        </div>
        <div class="marco"> 
            <div class="contenido">
                 
                <br>
                <table id='miTabla' class='TablaOrden'>
                    <caption>Datos Vuelos..</caption>
                    <thead>
                    <th onclick="TablaOrden.en('miTabla',0)">CIA</th>
                    <th>VUELO</th>
                    <th>DT1</th>
                    <th>DT2</th>
                    <th onclick="TablaOrden.en('miTabla',4)">STD</th>
                    <th onclick="TablaOrden.en('miTabla',5)">ETD</th>
                    <th>Coord</th>
                    </thead>
                    <tbody>
                        <TR><TD>VY</TD><TD>3001</TD><TD>BCN</TD><TD>TXL</TD><TD>1325</TD><TD>1400</TD><TD>alco</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                        <TR><TD>RGN</TD><TD>9011</TD><TD>MAD</TD><TD>BCN</TD><TD>0900</TD><TD>0900</TD><TD>speL</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                        <TR ><TD>DE</TD><TD>1052</TD><TD>HAJ</TD><TD>DUS</TD><TD>1200</TD><TD>1158</TD><TD>anaL</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                        <TR><TD>MT</TD><TD>1406</TD><TD>LGW</TD><TD>MAN</TD><TD>1500</TD><TD>1505</TD><TD>ctul</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                         
                    </tbody>
                </table>

me gustaría dependiendo del <input type="text" id="datepicker"/>

me busque en cada linea el valor fecha en formato ddyyyymm.En la fila lee desde el carácter 9 y son 8 caracteres.

Una vez tenga ese dato como probado,lea de esa linea los 3 primeros carecteres y los vuelque y cree el primer td y tome luego el valor pos 23 y lea los 3 caracteres y los copie en el siguiente td. así varios valores.

Una vez termine la primera linea. lea las siguientes lineas y cree sus tablas y valores.

Me gustaría que me echaran una mano. No se si existe alguna forma de poder realizar esto.

eh visto

Contents of the file:

function readSingleFile(e){var file = e.target.files[0];if(!file){return;}var reader = new FileReader();reader.onload = function(e){var contents = e.target.result;displayContents(contents);};reader.readAsText(file);}

function displayContents(contents) { var element = document.getElementById('file-content'); element.innerHTML = contents; }

document.getElementById('file-input') .addEventListener('change', readSingleFile, false);

Alguien me puede ir orientando

Trabajar con datos de un txt

Con visual he creado unos formularios y estoy intentando realizarlo en html local.

Tengo unos archivos de texto como datos, creado por un programa.

c:\MAPPERS Archivo PV (.PV).
c:\PVS Archivo PV (.PV).

Ejemplo:

Necesito que cuando se carga la pagina me lea el archivo

c:\MAPPERS Archivo PV (.PV).

y si elijo otra fecha lea el archivo

c:\PVS Archivo PV (.PV).
</head>
<body>
    <div class="contenedor">
        <div class="cabecera">
        <img src="http://static.corp.iberia.es/atlas/img/logo_134x29.png" alt="Iberia">
        <script>
         $(function () {
             $.datepicker.setDefaults($.datepicker.regional["es"]);
             $("#datepicker").datepicker({
                 dateFormat: 'dd/mm/yy',
                 firstDay: 1
             }).datepicker("setDate", new Date());
         });
         </script>
        <h1>Webreport Airport Service </h1>v.1.0
        <BR>
        <BR>
        Selecciona Fecha:&nbsp;&nbsp;
        <input type="text" id="datepicker"/>
        <BR>
        
        <ul>
          <li>
            
            <input type="radio" name="group1" value="Vuelos de Llegada">Vuelos de Llegada<br>                
            </li>
            <li>
            <input type="radio" name="group1" value="Vuelos de salida" checked>Vuelos de salida<br>
            </li>             
          </ul>
            <br>                
        </div>
        <P>Hora UTC</p>
        <div class="barra">         
        <script type="text/javascript"> function startTime(){ today=new Date(); h=today.getUTCHours(); m=today.getMinutes(); s=today.getSeconds(); m=checkTime(m); s=checkTime(s); document.getElementById('reloj').innerHTML=h+":"+m+":"+s; t=setTimeout('startTime()',500);} function checkTime(i) {if (i<10) {i="0" + i;}return i;} window.onload=function(){startTime();} </script> <div id="reloj"></div>
        </div>
        <div class="marco"> 
            <div class="contenido">                    
                <br>
                <table id='miTabla' class='TablaOrden'>
                    <caption>Datos Vuelos..</caption>
                    <thead>
                    <th onclick="TablaOrden.en('miTabla',0)">CIA</th>
                    <th>VUELO</th>
                    <th>DT1</th>
                    <th>DT2</th>
                    <th onclick="TablaOrden.en('miTabla',4)">STD</th>
                    <th onclick="TablaOrden.en('miTabla',5)">ETD</th>
                    <th>Coord</th>
                    </thead>
                    <tbody>
                        <TR><TD>VY</TD><TD>3001</TD><TD>BCN</TD><TD>TXL</TD><TD>1325</TD><TD>1400</TD><TD>alco</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                        <TR><TD>RGN</TD><TD>9011</TD><TD>MAD</TD><TD>BCN</TD><TD>0900</TD><TD>0900</TD><TD>speL</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                        <TR ><TD>DE</TD><TD>1052</TD><TD>HAJ</TD><TD>DUS</TD><TD>1200</TD><TD>1158</TD><TD>anaL</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>
                        <TR><TD>MT</TD><TD>1406</TD><TD>LGW</TD><TD>MAN</TD><TD>1500</TD><TD>1505</TD><TD>ctul</TD><TD><a href="http://microsoft.com" style="color:red" >F.C&nbsp;&nbsp;&nbsp;</a></TD><TD><a href="http://microsoft.com" style="color:blue" >F.P&nbsp;&nbsp;&nbsp;</TD><TD><a href="http://microsoft.com" style="color:YELLOW" >F.U&nbsp;&nbsp;&nbsp;</TD></TR>                            
                    </tbody>
                </table>

Dependiendo del <input type="text" id="datepicker"/> quiero que me busque en cada linea el valor fecha en formato dd/yyyy/mm.

En la fila lee desde el carácter 9 y son 8 caracteres.

Una vez tenga ese dato como probado, que lea de esa linea los 3 primeros caracteres y los vuelque y cree el primer td y tome luego el valor pos 23 y lea los 3 caracteres y los copie en el siguiente td. Así varios valores.

Una vez termine la primera linea, que lea las siguientes lineas y cree sus tablas y valores.

No se si existe alguna forma de poder realizar esto.

Un ejemplo que he encontrado:

<input type="file" id="file-input" />
<h3>Contents of the file:</h3>
<pre id="file-content"></pre>
<script>
  function readSingleFile(e) {
  var file = e.target.files[0];
  if (!file) {
    return;
  }
  var reader = new FileReader();
  reader.onload = function(e) {
    var contents = e.target.result;
    displayContents(contents);
  };
  reader.readAsText(file);
}

function displayContents(contents) {
  var element = document.getElementById('file-content');
  element.innerHTML = contents;
}

document.getElementById('file-input')
  .addEventListener('change', readSingleFile, false);
</script> 
se añadieron 855 caracteres en el cuerpo
Origen Enlace
EGR33
  • 5
  • 1
  • 1
  • 3
c:\MAPPERS Archivo PV (.PV).
 c:\PVS Archivo PV (.PV).

Necesito que cuando carge la pagina me lea un archivo c:\MAPPERS Archivo PV (.PV). y si elijo otra fecha lea un archivo c:\PVS Archivo PV (.PV).

Me gustaría que me echaran una mano. No se si existe alguna forma de poder realizar esto.

No se si existe alguna forma de poder realizar estoeh visto

Contents of the file:

function readSingleFile(e){var file = e.target.files[0];if(!file){return;}var reader = new FileReader();reader.onload = function(e){var contents = e.target.result;displayContents(contents);};reader.readAsText(file);}

function displayContents(contents) { var element = document.getElementById('file-content'); element.innerHTML = contents; }

document.getElementById('file-input') .addEventListener('change', readSingleFile, false);

Alguien me puede ir orientando

c:\MAPPERS Archivo PV (.PV).

Me gustaría que me echaran una mano.

No se si existe alguna forma de poder realizar esto.

c:\MAPPERS Archivo PV (.PV).
 c:\PVS Archivo PV (.PV).

Necesito que cuando carge la pagina me lea un archivo c:\MAPPERS Archivo PV (.PV). y si elijo otra fecha lea un archivo c:\PVS Archivo PV (.PV).

Me gustaría que me echaran una mano. No se si existe alguna forma de poder realizar esto.

eh visto

Contents of the file:

function readSingleFile(e){var file = e.target.files[0];if(!file){return;}var reader = new FileReader();reader.onload = function(e){var contents = e.target.result;displayContents(contents);};reader.readAsText(file);}

function displayContents(contents) { var element = document.getElementById('file-content'); element.innerHTML = contents; }

document.getElementById('file-input') .addEventListener('change', readSingleFile, false);

Alguien me puede ir orientando

se añadieron 276 caracteres en el cuerpo
Origen Enlace
Jordi Castilla
  • 7.4k
  • 11
  • 43
  • 62

En su momento realice en visual basic. Dim Fso As New FileSystemObject Dim ts As TextStream Dim strCodigo As String Dim strLinea As String Fso.CopyFile "P:\mapperS.pv", "C:\gonzalez\temporal\MAPPERS.PV" Set ts = Fso.OpenTextFile("C:\gonzalez\temporal\MAPPERS.PV") strCodigo = UCase(text1.Text) & Format(DTPFecha, "ddYYYYMM") Do While Not (ts.AtEndOfStream) strLinea = ts.ReadLine If strCodigo = Left(strLinea, Len(strCodigo)) Then SVALOR1 = Mid(strLinea, 1, 8) Dim datFecha As Date Dim sCodigo As String sCodigo = Mid(strLinea, 9, 8) datFecha = DateSerial(Mid(sCodigo, 3, 4), Mid(sCodigo, 7, 2), Mid(sCodigo, 1, 2)) SVALOR3 = Mid(strLinea, 19, 4) SVALOR4 = Mid(strLinea, 61, 4) SVALOR5 = Mid(strLinea, 23, 3) SVALOR6 = Mid(strLinea, 42, 3) SVALOR7 = Mid(strLinea, 31, 5) SVALOR8 = Mid(strLinea, 38, 4) SVALOR9 = Mid(strLinea, 301, 3) SVALOR10 = Mid(strLinea, 985, 4) SVALOR11 = Mid(strLinea, 528, 2) SVALOR11A = Mid(strLinea, 530, 2) SVALOR11B = Mid(strLinea, 532, 3) SVALOR12 = Mid(strLinea, 536, 2) SVALOR12A = Mid(strLinea, 538, 2) SVALOR12B = Mid(strLinea, 540, 3) SVALOR13 = Mid(strLinea, 543, 2) SVALOR13A = Mid(strLinea, 545, 3) SVALOR13B = Mid(strLinea, 548, 3) SVALOR13C = Mid(strLinea, 551, 2) sValor14 = Mid(strLinea, 240, 3) SVALOR15 = Mid(strLinea, 243, 3) SVALOR16 = Mid(strLinea, 553, 3) sValor17 = Mid(strLinea, 1074, 20) SVALOR18 = Mid(strLinea, 1002, 15) SVALOR19 = Mid(strLinea, 225, 14) svalor20 = Mid(strLinea, 391, 2) SVALOR21 = Mid(strLinea, 352, 6) SVALOR22 = Mid(strLinea, 358, 6) svalor23 = Mid(strLinea, 1, 3) Exit Do End If Loop FichaEmbForm.lblvuelosalida.Caption = SVALOR1 FichaEmbForm.lblfecha_salida.Caption = Format(datFecha, "dd/mm/yyyy") FichaEmbForm.lblhora_std.Caption = SVALOR3 FichaEmbForm.txthora_cetd.Text = SVALOR4 FichaEmbForm.txtdest1.Text = SVALOR5 FichaEmbForm.txtdest2.Text = SVALOR6 FichaEmbForm.txtreg.Text = SVALOR7 FichaEmbForm.txtpkn_s.Text = SVALOR8 FichaEmbForm.txtgate.Text = SVALOR9 FichaEmbForm.txtslot.Text = SVALOR10 FichaEmbForm.txtversion.Text = SVALOR11 & "/" & SVALOR11A & "/" & SVALOR11B FichaEmbForm.txtprevision.Text = SVALOR12 & "/" & SVALOR12A & "/" & SVALOR12B FichaEmbForm.txtfacturados.Text = SVALOR13 & "/" & SVALOR13A & "/" & SVALOR13B & "+" & SVALOR13C FichaEmbForm.txtpax_dest1.Text = sValor14 FichaEmbForm.txtpax_dest2.Text = SVALOR15 FichaEmbForm.txttto_s.Text = SVALOR16 FichaEmbForm.txtnotaS_cic.Text = sValor17 FichaEmbForm.Textcrewinfos_cic.Text = SVALOR18 FichaEmbForm.txtosi_s.Text = SVALOR19 FichaEmbForm.Textmo_fact.Text = svalor20 FichaEmbForm.TextNombre_emb1.Text = SVALOR21 FichaEmbForm.TextNombre_emb2.Text = SVALOR22

Dim Fso As New FileSystemObject
    Dim ts As TextStream
    Dim strCodigo As String
    Dim strLinea As String
    Fso.CopyFile "P:\mapperS.pv", "C:\gonzalez\temporal\MAPPERS.PV"
    Set ts = Fso.OpenTextFile("C:\gonzalez\temporal\MAPPERS.PV")
    strCodigo = UCase(text1.Text) & Format(DTPFecha, "ddYYYYMM")
Do While Not (ts.AtEndOfStream)
    strLinea = ts.ReadLine
    If strCodigo = Left(strLinea, Len(strCodigo)) Then
    SVALOR1 = Mid(strLinea, 1, 8)
        Dim datFecha As Date
        Dim sCodigo As String
        sCodigo = Mid(strLinea, 9, 8)
        datFecha = DateSerial(Mid(sCodigo, 3, 4), Mid(sCodigo, 7, 2), Mid(sCodigo, 1, 2))
    SVALOR3 = Mid(strLinea, 19, 4)
    SVALOR4 = Mid(strLinea, 61, 4)
    SVALOR5 = Mid(strLinea, 23, 3)
    SVALOR6 = Mid(strLinea, 42, 3)
    SVALOR7 = Mid(strLinea, 31, 5)
    SVALOR8 = Mid(strLinea, 38, 4)
    SVALOR9 = Mid(strLinea, 301, 3)
    SVALOR10 = Mid(strLinea, 985, 4)
    SVALOR11 = Mid(strLinea, 528, 2)
    SVALOR11A = Mid(strLinea, 530, 2)
    SVALOR11B = Mid(strLinea, 532, 3)
    SVALOR12 = Mid(strLinea, 536, 2)
    SVALOR12A = Mid(strLinea, 538, 2)
    SVALOR12B = Mid(strLinea, 540, 3)
    SVALOR13 = Mid(strLinea, 543, 2)
    SVALOR13A = Mid(strLinea, 545, 3)
    SVALOR13B = Mid(strLinea, 548, 3)
    SVALOR13C = Mid(strLinea, 551, 2)
    sValor14 = Mid(strLinea, 240, 3)
    SVALOR15 = Mid(strLinea, 243, 3)
    SVALOR16 = Mid(strLinea, 553, 3)
    sValor17 = Mid(strLinea, 1074, 20)
    SVALOR18 = Mid(strLinea, 1002, 15)
    SVALOR19 = Mid(strLinea, 225, 14)
    svalor20 = Mid(strLinea, 391, 2)
    SVALOR21 = Mid(strLinea, 352, 6)
    SVALOR22 = Mid(strLinea, 358, 6)
    svalor23 = Mid(strLinea, 1, 3)
    Exit Do
    End If
Loop
FichaEmbForm.lblvuelosalida.Caption = SVALOR1
FichaEmbForm.lblfecha_salida.Caption = Format(datFecha, "dd/mm/yyyy")
FichaEmbForm.lblhora_std.Caption = SVALOR3
FichaEmbForm.txthora_cetd.Text = SVALOR4
FichaEmbForm.txtdest1.Text = SVALOR5
FichaEmbForm.txtdest2.Text = SVALOR6
FichaEmbForm.txtreg.Text = SVALOR7
FichaEmbForm.txtpkn_s.Text = SVALOR8
FichaEmbForm.txtgate.Text = SVALOR9
FichaEmbForm.txtslot.Text = SVALOR10
FichaEmbForm.txtversion.Text = SVALOR11 & "/" & SVALOR11A & "/" & SVALOR11B
FichaEmbForm.txtprevision.Text = SVALOR12 & "/" & SVALOR12A & "/" & SVALOR12B
FichaEmbForm.txtfacturados.Text = SVALOR13 & "/" & SVALOR13A & "/" & SVALOR13B & "+" & SVALOR13C
FichaEmbForm.txtpax_dest1.Text = sValor14
FichaEmbForm.txtpax_dest2.Text = SVALOR15
FichaEmbForm.txttto_s.Text = SVALOR16
FichaEmbForm.txtnotaS_cic.Text = sValor17
FichaEmbForm.Textcrewinfos_cic.Text = SVALOR18
FichaEmbForm.txtosi_s.Text = SVALOR19
FichaEmbForm.Textmo_fact.Text = svalor20
FichaEmbForm.TextNombre_emb1.Text = SVALOR21
FichaEmbForm.TextNombre_emb2.Text = SVALOR22

En su momento realice en visual basic. Dim Fso As New FileSystemObject Dim ts As TextStream Dim strCodigo As String Dim strLinea As String Fso.CopyFile "P:\mapperS.pv", "C:\gonzalez\temporal\MAPPERS.PV" Set ts = Fso.OpenTextFile("C:\gonzalez\temporal\MAPPERS.PV") strCodigo = UCase(text1.Text) & Format(DTPFecha, "ddYYYYMM") Do While Not (ts.AtEndOfStream) strLinea = ts.ReadLine If strCodigo = Left(strLinea, Len(strCodigo)) Then SVALOR1 = Mid(strLinea, 1, 8) Dim datFecha As Date Dim sCodigo As String sCodigo = Mid(strLinea, 9, 8) datFecha = DateSerial(Mid(sCodigo, 3, 4), Mid(sCodigo, 7, 2), Mid(sCodigo, 1, 2)) SVALOR3 = Mid(strLinea, 19, 4) SVALOR4 = Mid(strLinea, 61, 4) SVALOR5 = Mid(strLinea, 23, 3) SVALOR6 = Mid(strLinea, 42, 3) SVALOR7 = Mid(strLinea, 31, 5) SVALOR8 = Mid(strLinea, 38, 4) SVALOR9 = Mid(strLinea, 301, 3) SVALOR10 = Mid(strLinea, 985, 4) SVALOR11 = Mid(strLinea, 528, 2) SVALOR11A = Mid(strLinea, 530, 2) SVALOR11B = Mid(strLinea, 532, 3) SVALOR12 = Mid(strLinea, 536, 2) SVALOR12A = Mid(strLinea, 538, 2) SVALOR12B = Mid(strLinea, 540, 3) SVALOR13 = Mid(strLinea, 543, 2) SVALOR13A = Mid(strLinea, 545, 3) SVALOR13B = Mid(strLinea, 548, 3) SVALOR13C = Mid(strLinea, 551, 2) sValor14 = Mid(strLinea, 240, 3) SVALOR15 = Mid(strLinea, 243, 3) SVALOR16 = Mid(strLinea, 553, 3) sValor17 = Mid(strLinea, 1074, 20) SVALOR18 = Mid(strLinea, 1002, 15) SVALOR19 = Mid(strLinea, 225, 14) svalor20 = Mid(strLinea, 391, 2) SVALOR21 = Mid(strLinea, 352, 6) SVALOR22 = Mid(strLinea, 358, 6) svalor23 = Mid(strLinea, 1, 3) Exit Do End If Loop FichaEmbForm.lblvuelosalida.Caption = SVALOR1 FichaEmbForm.lblfecha_salida.Caption = Format(datFecha, "dd/mm/yyyy") FichaEmbForm.lblhora_std.Caption = SVALOR3 FichaEmbForm.txthora_cetd.Text = SVALOR4 FichaEmbForm.txtdest1.Text = SVALOR5 FichaEmbForm.txtdest2.Text = SVALOR6 FichaEmbForm.txtreg.Text = SVALOR7 FichaEmbForm.txtpkn_s.Text = SVALOR8 FichaEmbForm.txtgate.Text = SVALOR9 FichaEmbForm.txtslot.Text = SVALOR10 FichaEmbForm.txtversion.Text = SVALOR11 & "/" & SVALOR11A & "/" & SVALOR11B FichaEmbForm.txtprevision.Text = SVALOR12 & "/" & SVALOR12A & "/" & SVALOR12B FichaEmbForm.txtfacturados.Text = SVALOR13 & "/" & SVALOR13A & "/" & SVALOR13B & "+" & SVALOR13C FichaEmbForm.txtpax_dest1.Text = sValor14 FichaEmbForm.txtpax_dest2.Text = SVALOR15 FichaEmbForm.txttto_s.Text = SVALOR16 FichaEmbForm.txtnotaS_cic.Text = sValor17 FichaEmbForm.Textcrewinfos_cic.Text = SVALOR18 FichaEmbForm.txtosi_s.Text = SVALOR19 FichaEmbForm.Textmo_fact.Text = svalor20 FichaEmbForm.TextNombre_emb1.Text = SVALOR21 FichaEmbForm.TextNombre_emb2.Text = SVALOR22

En su momento realice en visual basic.

Dim Fso As New FileSystemObject
    Dim ts As TextStream
    Dim strCodigo As String
    Dim strLinea As String
    Fso.CopyFile "P:\mapperS.pv", "C:\gonzalez\temporal\MAPPERS.PV"
    Set ts = Fso.OpenTextFile("C:\gonzalez\temporal\MAPPERS.PV")
    strCodigo = UCase(text1.Text) & Format(DTPFecha, "ddYYYYMM")
Do While Not (ts.AtEndOfStream)
    strLinea = ts.ReadLine
    If strCodigo = Left(strLinea, Len(strCodigo)) Then
    SVALOR1 = Mid(strLinea, 1, 8)
        Dim datFecha As Date
        Dim sCodigo As String
        sCodigo = Mid(strLinea, 9, 8)
        datFecha = DateSerial(Mid(sCodigo, 3, 4), Mid(sCodigo, 7, 2), Mid(sCodigo, 1, 2))
    SVALOR3 = Mid(strLinea, 19, 4)
    SVALOR4 = Mid(strLinea, 61, 4)
    SVALOR5 = Mid(strLinea, 23, 3)
    SVALOR6 = Mid(strLinea, 42, 3)
    SVALOR7 = Mid(strLinea, 31, 5)
    SVALOR8 = Mid(strLinea, 38, 4)
    SVALOR9 = Mid(strLinea, 301, 3)
    SVALOR10 = Mid(strLinea, 985, 4)
    SVALOR11 = Mid(strLinea, 528, 2)
    SVALOR11A = Mid(strLinea, 530, 2)
    SVALOR11B = Mid(strLinea, 532, 3)
    SVALOR12 = Mid(strLinea, 536, 2)
    SVALOR12A = Mid(strLinea, 538, 2)
    SVALOR12B = Mid(strLinea, 540, 3)
    SVALOR13 = Mid(strLinea, 543, 2)
    SVALOR13A = Mid(strLinea, 545, 3)
    SVALOR13B = Mid(strLinea, 548, 3)
    SVALOR13C = Mid(strLinea, 551, 2)
    sValor14 = Mid(strLinea, 240, 3)
    SVALOR15 = Mid(strLinea, 243, 3)
    SVALOR16 = Mid(strLinea, 553, 3)
    sValor17 = Mid(strLinea, 1074, 20)
    SVALOR18 = Mid(strLinea, 1002, 15)
    SVALOR19 = Mid(strLinea, 225, 14)
    svalor20 = Mid(strLinea, 391, 2)
    SVALOR21 = Mid(strLinea, 352, 6)
    SVALOR22 = Mid(strLinea, 358, 6)
    svalor23 = Mid(strLinea, 1, 3)
    Exit Do
    End If
Loop
FichaEmbForm.lblvuelosalida.Caption = SVALOR1
FichaEmbForm.lblfecha_salida.Caption = Format(datFecha, "dd/mm/yyyy")
FichaEmbForm.lblhora_std.Caption = SVALOR3
FichaEmbForm.txthora_cetd.Text = SVALOR4
FichaEmbForm.txtdest1.Text = SVALOR5
FichaEmbForm.txtdest2.Text = SVALOR6
FichaEmbForm.txtreg.Text = SVALOR7
FichaEmbForm.txtpkn_s.Text = SVALOR8
FichaEmbForm.txtgate.Text = SVALOR9
FichaEmbForm.txtslot.Text = SVALOR10
FichaEmbForm.txtversion.Text = SVALOR11 & "/" & SVALOR11A & "/" & SVALOR11B
FichaEmbForm.txtprevision.Text = SVALOR12 & "/" & SVALOR12A & "/" & SVALOR12B
FichaEmbForm.txtfacturados.Text = SVALOR13 & "/" & SVALOR13A & "/" & SVALOR13B & "+" & SVALOR13C
FichaEmbForm.txtpax_dest1.Text = sValor14
FichaEmbForm.txtpax_dest2.Text = SVALOR15
FichaEmbForm.txttto_s.Text = SVALOR16
FichaEmbForm.txtnotaS_cic.Text = sValor17
FichaEmbForm.Textcrewinfos_cic.Text = SVALOR18
FichaEmbForm.txtosi_s.Text = SVALOR19
FichaEmbForm.Textmo_fact.Text = svalor20
FichaEmbForm.TextNombre_emb1.Text = SVALOR21
FichaEmbForm.TextNombre_emb2.Text = SVALOR22
se añadieron 7496 caracteres en el cuerpo
Origen Enlace
EGR33
  • 5
  • 1
  • 1
  • 3
Loading
se añadieron 130 caracteres en el cuerpo
Origen Enlace
EGR33
  • 5
  • 1
  • 1
  • 3
Loading
Mejoras de formato.
Origen Enlace
Paul Vargas
  • 211
  • 1
  • 20
  • 39
Loading
Origen Enlace
EGR33
  • 5
  • 1
  • 1
  • 3
Loading