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

Switch to side-by-side view

--- a
+++ b/trunk/Device/Plc Logic/Application/FTP/FB_FtpClient/GetFolderFromPath/svnobj
@@ -0,0 +1,19 @@
+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
+	IF sFilePath[_i] = 47 THEN // '/' (PS, '\' = 92)
+		_iLastSlashPos := _i;
+	END_IF
+END_FOR
+IF _iLastSlashPos > 0 THEN
+	GetFolderFromPath := LEFT(sFilePath, _iLastSlashPos);
+END_IF	&LineInfoPersistence
+b064413ec-d607-4d1d-8487-af7aff2509c9_Impl_LineIdsInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}
¨{attribute 'hide'}
+METHOD PROTECTED GetFolderFromPath : STRING
+VAR_INPUT
+	sFilePath : STRING;
+END_VAR
+VAR
+	_i : INT;
+	_iLastSlashPos : INT;
+END_VAR
+b064413ec-d607-4d1d-8487-af7aff2509c9_Decl_LineIdsÐÐÐÐ-Ð	-
+ÐÐÐ-
Ð	-
\ No newline at end of file