Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64414 Skopiuj do schowka VBScript - wyświetlanie zawartości pliku txt
Autor Wiadomość
jaholden 
Starszy Forumowicz


Pomógł: 1 raz
Posty: 56
Wysłany: 13-03-2019, 13:24   VBScript - wyświetlanie zawartości pliku txt

Cześć,

Próbuję przygotować plik hta który wyświetli dane z pliku tekstowego przy pomocy VBScript.
Czy może mi ktoś podpowiedzieć, w jaki sposób napisać kod VBScript, żeby załadował do DIVa z ID="myTable" zawartość pliku tekstowego? Zawartością będzie tabela generowana przez makro.

Plik wygląda tak - niestety nie mogę załączyć pliku z takim rozszerzeniem:

Kod:
<!DOCTYPE html>
<html lang="en">
<head>
    <meta charset="UTF-8">
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <meta http-equiv="X-UA-Compatible" content="IE=9" />
<HTA:APPLICATION
   ID="ArtColl"
   APPLICATIONNAME="ArtColl"
   VERSION="2.0"
   BORDER="no"
   CAPTION="yes"
   SHOWINTASKBAR="yes"
   SCROLL="yes"
   SINGLEINSTANCE="yes"
   SysMenu="yes"
   MINIMIZEBUTTON="yes"
   MAXIMIZEBUTTON="yes"
   WINDOWSTATE="normal"
   ICON="pic\pic.ico"
>
<script language="VBScript">
    Sub window_onLoad
        window.resizeTo 1000,800
    End Sub
</script>
</head>
 <body id="one">
    <div class="container">
      <div class="row">       
         <div class="col-sm-12 form-group">
            <label>Table</label>
            <select type="text" id="myTable">
               <option value="-1">Loading...</option>
            </select>
         </div>
      </div>
   </div>
 </body>   
</html>
ID posta: 364114 Skopiuj do schowka
 
 
DwaNiedźwiedzie 
Excel Expert



Pomógł: 213 razy
Posty: 549
Wysłany: 14-03-2019, 11:39   

Sprawdź taka procedurę:
Kod:
Sub CzytajPlik
    Dim fs, opt, filename
    Set fs = CreateObject("Scripting.FileSystemObject")
   
    filename = "D:\testfile.txt"
   
    With fs.OpenTextFile(filename)
        Do Until .AtEndOfStream
            Set opt = document.createElement("option")
            opt.Text = .ReadLine
            opt.Value = .ReadLine
            myTable.appendChild(opt)
        Loop
    End With
End Sub

Wywołaj ją w window_onLoad przez Call CzytajPlik.
ID posta: 364208 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe