NOVINKA - Online rekvalifikační kurz Python programátor. Oblíbená a studenty ověřená rekvalifikace - nyní i online.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.

Diskuze: Vbscript

V předchozím kvízu, Test znalostí C# .NET online, jsme si ověřili nabyté zkušenosti z kurzu.

Jak se ti líbí článek?
Před uložením hodnocení, popiš prosím autorovi, co je špatněZnaků 0 z 50-500
Jak se ti kurz líbí?
Tvé hodnocení kurzuZnaků 0 z 50-500
Aktivity
Avatar
N-nojmi
Člen
Avatar
N-nojmi:4.6.2014 13:39

zdravím, mohl by mi někdo vysvětlit význam jedné řádky ve Vbscriptu?

Zde je blok kódu ve kterém se nachází:

'.Script &= "  Dim FSO, Folder, FolderPathOuput, Files, File, FileTextStream" & vbCrLf
        '.Script &= "  Set FSO = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf
        '.Script &= "  FolderPathOuput = FSO.BuildPath(""" & Session.Options("DIR_FRANK_Path") & """, """ & pathOdes & """)" & vbCrLf
        '.Script &= "" & vbCrLf
        '.Script &= "  Set Folder = FSO.GetFolder(FolderPathOuput)" & vbCrLf
        '.Script &= "  Set Files = Folder.Files" & vbCrLf
        '.Script &= "  For Each File In Files" & vbCrLf
        '.Script &= "    If LCase(FSO.GetExtensionName(File.Path)) = """ & extensionName & """ Then" & vbCrLf
        '.Script &= "      Set FileTextStream = FSO.OpenTextFile(File.Path, 1)" & vbCrLf
        '.Script &= "      MPageForm." + GenMPage.PropertyName("FrankStrojExport") + ".Value = MPageForm." + GenMPage.PropertyName("FrankStrojExport") + ".Value + vbCrLf + FileTextStream.ReadAll" & vbCrLf
        '.Script &= "      FileTextStream.Close()" & vbCrLf
        '.Script &= "      File.Move(File.Path + ""."" + CStr(Year(Now)) + Right(""0"" + CStr(Month(Now)), 2) + Right(""0"" + CStr(Day(Now)), 2) + Right(""0"" + CStr(Hour(Now)), 2) + Right(""0"" + CStr(Minute(Now)), 2) + Right(""0"" + CStr(Second(Now)), 2) + "".bak"")" & vbCrLf
        '.Script &= "      File.Delete True" & vbCrLf
        '.Script &= "    End If" & vbCrLf

jde mi konkrétně od řádek:

.Script &= "  For Each File In Files" & vbCrLf

Předem díky

Odpovědět
4.6.2014 13:39
Není hloupých lidí, jen lidí co málo používají google...
Avatar
Luboš Běhounek Satik
Tvůrce
Avatar
Odpovídá na N-nojmi
Luboš Běhounek Satik:4.6.2014 13:46

Cyklus přes všechny soubory v Files - takže asi přes soubory té složce z FolderPathOutput.

Nahoru Odpovědět
+1
4.6.2014 13:46
https://www.facebook.com/peasantsandcastles/
Avatar
N-nojmi
Člen
Avatar
Odpovídá na Luboš Běhounek Satik
N-nojmi:4.6.2014 13:55

takže je to to samé jako v C# cyklus foreach?

Nahoru Odpovědět
4.6.2014 13:55
Není hloupých lidí, jen lidí co málo používají google...
Avatar
Luboš Běhounek Satik
Tvůrce
Avatar
Odpovídá na N-nojmi
Luboš Běhounek Satik:4.6.2014 14:08

ano, for each je to same jako foreach :)

Nahoru Odpovědět
+1
4.6.2014 14:08
https://www.facebook.com/peasantsandcastles/
Avatar
N-nojmi
Člen
Avatar
Odpovídá na Luboš Běhounek Satik
N-nojmi:4.6.2014 14:11

Díky

Nahoru Odpovědět
4.6.2014 14:11
Není hloupých lidí, jen lidí co málo používají google...
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 5 zpráv z 5.