mozem to vytvarat v notepad++? a ked vytvorim subor na C: vo vbs co dalej

Pokud je notepad++ pouze textový editor, tak ano. Pokud si už přidává nějaké formátovací značky, tak ne.

ITCrowd píše:Tak tady to máš. Uložený text v Code zkopíruj do notepadu (NE! do wordu a pododobně!) a ulož s příponou .vbs (visual basic skript).

Kód: Vybrat vše

'************************************************
'*   Skript vytváří m3u soubor dle zadání       *
'************************************************
'*         Vytvořeno pro PC-HELP!               *
'************************************************
'********Etienn@Script*v*1.0*(c)*2019-03*********
'************************************************

Option Explicit

Dim fso, Text, txtStream, x

Const PrvniCast = "http://www.neco.cz/"
Const DruhaCast = "/abc/"
Const file = "C:\test\Seznam.m3u" 

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set txtStream = fso.OpenTextFile(file, 8, True)

For x = 1 To 999 Step 1
  If x < 10 Then Text = "00" & CStr(x)     
  If x > 9 And x < 100 Then Text = "0" & CStr(x)
  If x > 99 Then Text = CStr(x)
txtStream.WriteLine PrvniCast & Text & DruhaCast   
Next

Set fso = Nothing
Set txtStream = Nothing


Volené parametryx jsou zadány pomocí "Const"
Const PrvniCast = "http://www.neco.cz/" - první část textu
Const DruhaCast = "/abc/" - druhá část textu
Const file = "C:\test\Seznam.m3u" plná cesta k souboru. Adresář (zde C:\test\) musí existovat, soubor nemusí, vytvoří si ho sám.
Tekhle vypadá vzorový soubor (začátek):

Kód: Vybrat vše

http://www.neco.cz/001/abc/
http://www.neco.cz/002/abc/
http://www.neco.cz/003/abc/
http://www.neco.cz/004/abc/
http://www.neco.cz/005/abc/
http://www.neco.cz/006/abc/
http://www.neco.cz/007/abc/
http://www.neco.cz/008/abc/
http://www.neco.cz/009/abc/
http://www.neco.cz/010/abc/
http://www.neco.cz/011/abc/
http://www.neco.cz/012/abc/
http://www.neco.cz/013/abc/
http://www.neco.cz/014/abc/
http://www.neco.cz/015/abc/
http://www.neco.cz/016/abc/
http://www.neco.cz/017/abc/
http://www.neco.cz/018/abc/
http://www.neco.cz/019/abc/
http://www.neco.cz/020/abc/
http://www.neco.cz/021/abc/
http://www.neco.cz/022/abc/
http://www.neco.cz/023/abc/



ukaz mi prosim ta podla podla tohto vzoru ako to ma vyzerat http://XXX.XXX.XXX.XXX/master_001.m3u8 ci som to aspon trocha pochopil. a potom co stym vytvorenym suborom vbs. dakujem

Nojo...
Vzor, jak to bude vypadat vidíš v citaci.
Tak znovu:
1. Vytvoř soubor s příponou VBS, jak je psáno v citaci.
2. Vytvoř adresář (složku) "test" na disku C:
3. Dvojklikni na ten soubor vbs.
V adresáři C:test se vytvoří soubor Seznam.m3u, který bude obsahovat odkazy uvedené ve vzoru. Tím pochopíš, jak to vlastně funguje.
A pokud tam budeš chtít něco jiného, upravíš si to přímo ve skriptu.

Dodatečně přidáno po 12 minutách :
Úprava:

Udělá tohle:

ITCrowd dakujem,dakujem uz to funguje. problem bol v notepad++.stiahol som PSpad a vtom vsetko OK. este raz dakujem chalani.este skusim aj ten excel.CAUKO

Vidíš, říkal jsem, že jak si to vyzkoušíš, že na to přijdeš

Ahoj.tvoj script som pochopil ako to funguje.mozes mi ukazat ak by som to chcel pouzit od 1-999,ako by ten script vyzeral.(na porovnanie co sa tam zmeni) bez tych 00. dakujem

Kdyz jsi ho pochopil, tak si ho dovedes upravit sam - staci umazat ty podminky a nechat 'obycejny' cyklus. Na to ti mimochodem staci for v cmd.

Tím pádem ho asi nepochopil.

Takhle je je to bez těch "00". Postup stejný jak psal ITCrowd.

Tohle:
Upravíš takto:

takze ak som to dobre pochopil staci teraz menit tento riadok For x = 1 To 999 Step 1(napr. For x = 200 To 1999 Step 1) a ak to chcem bez druhej casti vymazem Const DruhaCast = "/abc/" a upravim txtStream.WriteLine PrvniCast & x . ak nie tak ma opravte. dakujem

Je to přesně jako píšeš.
Klidně stačí
Tím ti skript zůstane připraven pro druhou část, kdybys ji někdy chtěl a zapomněl, jak to bylo.