Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Kopírování ze složky do složky

Zdravím.Jak vyřešit následující problém? Mám v PC tisíce souborů .txt . Potřebuji z každého zkopírovat prvních 558 znaků jinam. Jak to udělat? Mám win 10.

Prostě otevřít soubot .txt, zkopírovat 558 znaků a zavřít. A takto všechny soubory.

Předmět Autor Datum
napiš si VBS, popřípadě použij jiný skriptovací nástroj. nový
touchwood 25.09.2017 08:36
touchwood
A kolik by tak stálo takový VBS soubor vytvořit? Sama to nezvládnu. nový
Marušššaaa 25.09.2017 08:43
Marušššaaa
Možná se pletu, ale nenapadá mě jediný rozumný důvod, jaký by takovéto "kopírování" mělo mít. Spíš t… nový
JoDiK 25.09.2017 09:17
JoDiK
to bys nejprve musela přesně popsat zadání. nový
touchwood 25.09.2017 10:14
touchwood
obecně to máš tady: https://www.mjtnet.com/forum/viewtopic.php?t=1170 Sub CopyNBytes(SourceFile,D… nový
touchwood 25.09.2017 10:20
touchwood
Toto by měl zvládnout i AutoIt. poslední
yorg 25.09.2017 10:23
yorg

Možná se pletu, ale nenapadá mě jediný rozumný důvod, jaký by takovéto "kopírování" mělo mít. Spíš to vypadá jako typická školní úloha - na procvičování práce s textovými soubory. Navíc chybí pár podstatných informací, např. jaký formát kódování mají ty "textové" soubory (ANSI, UTF-8, UTF-16), jestli je jisté, že všechny mají minimálně těch 558 znaků, jestli jsou ty soubory všechny v jedné složce, nebo v různých složkách a pod...
Cenu odhaduji od zadarmo (student kamarád v rámci procvičení probrané látky) přes stovku (ochotný známý) až po tisícovku (softwerová firma, která provede analýzu, algoritmizaci, kódování a odladění...)

obecně to máš tady:

https://www.mjtnet.com/forum/viewtopic.php?t=1170


Sub CopyNBytes(SourceFile,DestFile,Bytes)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim BinaryStream

'Create the BinaryStream object
Set BinaryStream = CreateObject("ADODB.Stream")

'Set it up and load in the source file
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.LoadFromFile SourceFile

'Truncate the stream
BinaryStream.Position = Bytes
BinaryStream.SetEOS

'Save the stream to the destination file
BinaryStream.SaveToFile DestFile, adSaveCreateOverWrite
End Sub

A celé to budeš volat v cyklu nad všemi soubory, které chceš takto vymandlovat:

CopyNBytes,cesta\zdroj.txt, cesta\cil.txt, 558

Zpět do poradny Odpovědět na původní otázku Nahoru