Diff of /trunk/Device/Plc Logic/Application/FTP/FB_FtpClient/GetFolderFromPath/svnobj [000000] .. [r2]  Maximize  Restore

Switch to unified view

a b/trunk/Device/Plc Logic/Application/FTP/FB_FtpClient/GetFolderFromPath/svnobj
1
Gx_lë!0…jüo–ûîýÞ-1ÄßöSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}0TextBlobForSerialisation¦FOR _i := 0 TO LEN(sFilePath) DO
2
   IF sFilePath[_i] = 47 THEN // '/' (PS, '\' = 92)
3
      _iLastSlashPos := _i;
4
   END_IF
5
END_FOR
6
IF _iLastSlashPos > 0 THEN
7
   GetFolderFromPath := LEFT(sFilePath, _iLastSlashPos);
8
END_IF   &LineInfoPersistence
9
b064413ec-d607-4d1d-8487-af7aff2509c9_Impl_LineIdsInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}
¨{attribute 'hide'}
10
METHOD PROTECTED GetFolderFromPath : STRING
11
VAR_INPUT
12
   sFilePath : STRING;
13
END_VAR
14
VAR
15
   _i : INT;
16
   _iLastSlashPos : INT;
17
END_VAR
18
b064413ec-d607-4d1d-8487-af7aff2509c9_Decl_LineIdsÐÐÐÐ-Ð  -
19
ÐÐÐ-
Ð   -