|Description||Put link to file to the clipboard|
|Parameters||"%P", "%T", "%M"|
|Plugins Called||miscplugin, clip|
args P, T, M local Result, i, BegP, BegT local Bef = "<a href=" local Aft = "></a>" if(P == T) do Result = Bef ++ M ++ Aft clip.set(Result) quit endif ;Sub_ParsePath - name of script ParsePath local SourceDepth = runfile.Subs\Sub_ParsePath(P, "") local TargetDepth = runfile.Subs\Sub_ParsePath(T, "") if(index(P, T) != 0) do Result = Bef ++ repeat("../", SourceDepth - TargetDepth) ++ M ++ Aft clip.set(Result) quit endif if(index(T, P) != 0) do Result = Bef ++ select(T, length(P) - length(T)) ++ M ++ Aft clip.set(Result) quit endif local Lim = min(SourceDepth, TargetDepth) local Counter = 0 for(i = 1; i <= Lim; i = i + 1) Result = BegP BegP = runfile.Subs\Sub_ParsePath(P, i - SourceDepth) BegT = runfile.Subs\Sub_ParsePath(T, i - TargetDepth) if(BegP == "" || BegT == "") break if(BegP == BegT) do Counter = Counter + 1 else break endif endfor if(Counter == 0) do local mpDlgCaption = "LinkPath Script" local mpIcon = "WARNING" local mpDlgText = "Source path is " ++ P ++ "\nTarget file is " ++ T ++ M mpDlgText = mpDlgText ++ "\nThey seem to be on different logical disks!" miscplugin.messagebox(1, "&OK") quit endif Result = repeat("../", SourceDepth - Counter) Result = Result ++ runfile.Subs\Sub_ParsePath(T, TargetDepth - Counter) ++ "/" Result = Bef ++ replacechars(Result, "\", "/") ++ M ++ Aft clip.set(Result)
Script can be useful for web-designers who often paste to their web pages the links to files located in different directories relative to the current one. It is supposed that the current directory in the source panel contains the web page file under editing. Further, in the opposite (target) panel you should place the cursor on the "target file", that is, file you need the link to. After pointing the target file you have to switch back to the source panel.
For example, the web page has the full name:
Links to target file Target.html depend on its path relative to the source path as follows:
|Full path of target file||Result|
Error in the last case is caused by different logical disks of source and target panels.
After the script execution you can easily paste the clipboard contents into your editor.
Since the path link is relative rather than absolute, the link will be valid irrespective of where both files (web page file and target file) are located: standalone computer, local or global network. Only one thing that must be kept is the directory structure.
Important! First line of script contains the args keyword introduced in PowerPro version 4.4! At execution under older versions the error message will be displayed. If (by some reason) you did not install the latest version of PowerPro, you should replace the first script line with the following three lines:
local P = arg(1)
local T = arg(2)
local M = arg(3)
|Main Page||Total Commander||PowerPro|