Új hozzászólás Aktív témák

• #10388 ollie MODERÁTOR alexadh #10380

  Új Válasz 2009-10-20 15:47:52 #10388

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ollie

  MODERÁTOR

  válasz alexadh #10380 üzenetére

  A következő kódrészletet másold be notepad-ba, majd mentsd le mondjuk readtext.vbs néven (fontos a kiterjesztés [vbs], a név maga nem). A vastag betűs részbe helyettesítsd be a fájlnevet az elérési úttal.

  Const ForReading = 1
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.OpenTextFile("[B]c:\message.txt[/B]", ForReading)
  
  Do Until objFile.AtEndOfStream
  strLine = strLine & vbCRLF & objFile.ReadLine
  Loop
  
  Wscript.Echo strLine
  objFile.Close

  (#10387) ticzi01: a VirtualDub eléggé egyszerű. Csak megnyitod az avi-t, az audio és video menüben beállítod hogy full conversion (vagy encoding?), ott ugyancsak kiválasztod a codec-eket és a minőséget, majd save.

Új hozzászólás Aktív témák