GoOgLe
03-23-2007, 02:35 PM
selString = Input.GetSelection("Input1");
if selString ~= nil then
link = Dialog.Input("WEB", "LINK:", "", MB_ICONQUESTION);
text = Dialog.Input("LINK", "TEXT:", "", MB_ICONQUESTION);
if (link ~= "CANCEL") then
tblSelected = Input.GetSelection("Input1")
if tblSelected then
nPos = tblSelected.Start - 1
sLinkText = String.Mid(Input.GetText("Input1"), tblSelected.Start, tblSelected.End - tblSelected.Start + 1)
else
nPos = GetCaretPos("Input1")
sLinkText = text
end
if nPos == 0 then
Input.SetText("Input1", "{URL=\""..link.."\"]"..sLinkText.."{/URL]"..Input.GetText("Input1"))
elseif nPos == String.Length(Input.GetText("Input1")) then
Input.SetText("Input1",Input.GetText("Input1").. "{URL=\""..sLinkText.."\"]"..link.."{/URL]")
else
sBefore = String.Left(Input.GetText("Input1"), nPos)
if tblSelected then
sAfter = String.Mid(Input.GetText("Input1"), tblSelected.End + 1, -1)
else
sAfter = String.Mid(Input.GetText("Input1"), nPos + 1, -1)
end
Input.SetText("Input1", sBefore.."{URL=\""..link.."\"]"..sLinkText.."{/URL]"..sAfter)
end
end
else
Dialog.Input("LINK", "TEXT:", selString, MB_ICONQUESTION);
what's wrong with the code ???
if selString ~= nil then
link = Dialog.Input("WEB", "LINK:", "", MB_ICONQUESTION);
text = Dialog.Input("LINK", "TEXT:", "", MB_ICONQUESTION);
if (link ~= "CANCEL") then
tblSelected = Input.GetSelection("Input1")
if tblSelected then
nPos = tblSelected.Start - 1
sLinkText = String.Mid(Input.GetText("Input1"), tblSelected.Start, tblSelected.End - tblSelected.Start + 1)
else
nPos = GetCaretPos("Input1")
sLinkText = text
end
if nPos == 0 then
Input.SetText("Input1", "{URL=\""..link.."\"]"..sLinkText.."{/URL]"..Input.GetText("Input1"))
elseif nPos == String.Length(Input.GetText("Input1")) then
Input.SetText("Input1",Input.GetText("Input1").. "{URL=\""..sLinkText.."\"]"..link.."{/URL]")
else
sBefore = String.Left(Input.GetText("Input1"), nPos)
if tblSelected then
sAfter = String.Mid(Input.GetText("Input1"), tblSelected.End + 1, -1)
else
sAfter = String.Mid(Input.GetText("Input1"), nPos + 1, -1)
end
Input.SetText("Input1", sBefore.."{URL=\""..link.."\"]"..sLinkText.."{/URL]"..sAfter)
end
end
else
Dialog.Input("LINK", "TEXT:", selString, MB_ICONQUESTION);
what's wrong with the code ???