Stránka 1 z 3

textový dokument

Napsal: 24 bře 2019 19:30
od driver76
prosim vas ako vytvorit txt subor z http://www..nieco..com/001/abc aby som nemusel v kazdom riadku prepisovat 001 na 002, 003.....proste aby my to vytvorilo riadky od 001 po 999. dakujem

som zaciatocnik

Re: textový dokument

Napsal: 24 bře 2019 19:51
od faraon
Vítej na PC-help.

Záleží v čem to vytváříš, například já bych použil:

Kód: Vybrat vše

echo -e \\nhttp://www..nieco..com/{001..999}/abc >soubor.txt

Re: textový dokument

Napsal: 24 bře 2019 20:02
od driver76
dakujem za privitanie. doteraz som to robil pracne v poznamkovom bloku. mam od vcera notepad++ ale to je pre mna spanielska dedina. týmto veciam vobec nerozumiem. tak potom v com to vytvorit

Re: textový dokument

Napsal: 24 bře 2019 20:17
od Uziv00
Můžeš si napsat skript. Popřípadě ti ho můžu napsat já, jen nechápu zadání.
Takhle nějak to má vypadat?

Kód: Vybrat vše

http://neco.com/001/abc
http://neco.com/002/abc
atd?

Re: textový dokument

Napsal: 24 bře 2019 20:25
od driver76

Re: textový dokument

Napsal: 24 bře 2019 20:53
od faraon
Vzhledem k tomu, že jsi položil dotaz v sekci "Kancelářské balíky", máš v počítači nějaký spreadsheet - tabulkový procesor? Například LibreOffice Calc nebo MS Excel?

V něm je možné, například pomocí funkce CONCAT, spojovat textové řetězce do jednoho:
concat.png

První tři sloupce jsou nastavené na formát TEXT, první buňka obsahuje úvodní část adresy, druhá "číslo" v potřebném tvaru, třetí zbytek adresy.
Do čtvrté vložíš funkci pro sloučení řetězců a potom jenom myší označíš všechny čtyři buňky prvního řádku a tažením rozkopíruješ na potřebný počet řádků.
Výsledek ve čtvrtém sloupci opět myší označíš a překopíruješ do textového editoru, kde doplníš potřebnou bižuterii pro přehrávač a uložíš jak potřebuješ.

Re: textový dokument

Napsal: 24 bře 2019 21:01
od driver76
ano excel mam. skusim, dakujem velmi pekne za podrobny postup

Re: textový dokument

Napsal: 24 bře 2019 21:03
od Uziv00
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/


Re: textový dokument

Napsal: 24 bře 2019 21:16
od driver76
Chalani ste super, velmi pekne vam dakujem za cas a trpezlivost

Re: textový dokument

Napsal: 24 bře 2019 21:30
od faraon
ITCrowd - to mi připomnělo moje dávné Widlácké časy, kdy jsem na podobné věci používal maloměkký QBasic:

Kód: Vybrat vše

OPEN "soubor.m3u" FOR OUTPUT AS #1

FOR i = 1 TO 999
    PRINT #1, "http://www..nieco..com/";
    IF i < 10 THEN PRINT #1, "0";
    IF i < 100 THEN PRINT #1, "0";
    PRINT #1, MID$(STR$(i), 2);
    PRINT #1, "/abc"
    NEXT i

CLOSE #1
SYSTEM

Trocha nostalgie před spaním :lol:

Re: textový dokument

Napsal: 25 bře 2019 09:55
od driver76
ahojte chalani.som vazne lama. nejde mi to vytvorit ani v LibreOffice Calc .http://XXX.XXX.XXX.XXX/master_001.m3u8 takyto je cely vzor. pomozte prosim. dakujem

Re: textový dokument

Napsal: 25 bře 2019 10:06
od Uziv00
Vždyť jsem ti napsal skript, který to celé za tebe udělá. V čem je problém?