Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

EXCEL 2013 Visual Basic - kopiowanie .txt

michu14031 01 Cze 2017 13:26 801 7
  • #1 01 Cze 2017 13:26
    michu14031
    Poziom 13  

    Witam.

    Mam pytanie: w jaki sposób mogę połączyć dwa pliki *.txt przy pomocy VBA?
    Mianowicie, plik B ma dwa wiersze które to bym chciał aby znalazły się na początku pliku A. Dodam, że plik A jest generowany za pomocą Write #1.

    Ktoś ma jakiś pomysł?

    0 7
  • #2 01 Cze 2017 16:42
    lanzul
    Poziom 26  

    Witam,
    :) ... Kolega widzę "hurtowo" podchodzi do swoich spraw ... :D ...

    1. Jakiś drobny przykład plików '.txt' (?)
    2.

    michu14031 napisał:
    ... połączyć dwa pliki *.txt przy pomocy VBA ... plik B ma dwa wiersze które to bym chciał aby znalazły się na początku pliku A. Dodam, że plik A jest generowany za pomocą Write #1 ...
    Tutaj raczej nie będzie miało znaczenia w jaki sposób pliki były zapisywane, przecież nie będziemy tworzyli ich struktury od początku, a jedynie łączyli "blokowo" ich zawartości w odpowiedniej kolejności.
    3. Widzę tu 2x 'Open dostep For Input As #nr_pliku' i 1x 'Open dostep For Output As #nr_pliku', i jakieś zmienne do przechowania zawartości plików '.txt'

    0
  • #3 01 Cze 2017 18:28
    michu14031
    Poziom 13  

    kolego hurtowo :) a raczej dokończenie poprzedniej, w tym że muszę dodać do pliku z xml poniższe wiersze,;
    <?xml version="1.0" encoding="UTF-8"?>
    <pozycja version="2.0">

    Jeżeli dodaje za pomocą write #1 to rozjeżdza się w VBA

    więc najlepszym wyjściem było by połączenie

    0
  • Pomocny post
    #4 01 Cze 2017 18:40
    JRV
    Specjalista - VBA, Excel

    lub Shell "cmd /c copy plik_1.txt + plik_2.txt plik_s.txt"

    Dodano po 5 [minuty]:

    michu14031 napisał:
    rozjeżdza się w VBA
    zmien cudzyslowy na Chr(34)
    np
    write #1, "<pozycja version=" & Chr(34) & "2.0" & Chr(34) & ">"

    0
  • #6 01 Cze 2017 19:09
    lanzul
    Poziom 26  

    michu14031 napisał:
    ...a raczej dokończenie poprzedniej, w tym że muszę dodać do pliku z xml poniższe wiersze,;
    <?xml version="1.0" encoding="UTF-8"?>
    <pozycja version="2.0">
    Jeżeli dodaje za pomocą write #1 to rozjeżdza się w VBA

    Ad 1. Jeśli dokończenie poprzedniego, to czy nie lepiej wstawić w tamte makro linijki jak poniżej (?):
    Kod: vba
    Zaloguj się, aby zobaczyć kod

    Ad 2. Poza tym '<pozycja version="2.0">', to chyba zamiennie za tamto '<pozycja>' (?), bo inaczej to struktura 'xml'a' jest niewłaściwa i edytory xml zgłaszają błędy ... :| ...

    0
  • #7 01 Cze 2017 19:29
    michu14031
    Poziom 13  

    lanzul napisał:
    michu14031 napisał:
    ...a raczej dokończenie poprzedniej, w tym że muszę dodać do pliku z xml poniższe wiersze,;
    <?xml version="1.0" encoding="UTF-8"?>
    <pozycja version="2.0">
    Jeżeli dodaje za pomocą write #1 to rozjeżdza się w VBA

    Ad 1. Jeśli dokończenie poprzedniego, to czy nie lepiej wstawić w tamte makro linijki jak poniżej (?):
    Kod: vba
    Zaloguj się, aby zobaczyć kod

    Ad 2. Poza tym '<pozycja version="2.0">', to chyba zamiennie za tamto '<pozycja>' (?), bo inaczej to struktura 'xml'a' jest niewłaściwa i edytory xml zgłaszają błędy ... :| ...


    kolego właśnie w ten sposób się rozjeżdża, sposób JRV działa, prawidłowo,

    dziękuje za chęci

    0
  Szukaj w 5mln produktów