egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-11-28T11:48:22-04:00 https://forum.eggheads.org/app.php/feed/topic/6232 2003-11-28T11:48:22-04:00 2003-11-28T11:48:22-04:00 https://forum.eggheads.org/viewtopic.php?p=30816#p30816 <![CDATA[$nopath and $nofile from mirc]]>

Thx a lot, even if I have already written 5 lines of code (fortunately only 5 :P)
The "file dirname" and "file tail" works great :)

Statistics: Posted by cerberus_gr — Fri Nov 28, 2003 11:48 am

]]> 2003-11-27T13:19:23-04:00 2003-11-27T13:19:23-04:00 https://forum.eggheads.org/viewtopic.php?p=30778#p30778 <![CDATA[Reinventing the wheel...]]> file dirname and file tail :)

Statistics: Posted by user — Thu Nov 27, 2003 1:19 pm

]]> 2003-11-27T01:37:54-04:00 2003-11-27T01:37:54-04:00 https://forum.eggheads.org/viewtopic.php?p=30757#p30757 <![CDATA[$nopath and $nofile from mirc]]>

Statistics: Posted by cerberus_gr — Thu Nov 27, 2003 1:37 am

]]> 2003-11-26T16:21:43-04:00 2003-11-26T16:21:43-04:00 https://forum.eggheads.org/viewtopic.php?p=30738#p30738 <![CDATA[$nopath and $nofile from mirc]]> -----------------------------------------------------------
string length <string>
Returns a decimal string giving the number of characters in string.

string index <string> <charIndex>
Returns the charIndex'th character of the string argument. A charIndex of 0 corresponds to the first character of the string. If charIndex is less than 0 or greater than or equal to the length of the string then an empty string is returned.

string range <string> <first> <last>
Returns a range of consecutive characters from string, starting with the character whose index is first and ending with the character whose index is last. An index of 0 refers to the first character of the string. An index of end (or any abbreviation of it) refers to the last character of the string. If first is less than zero then it is treated as if it were zero, and if last is greater than or equal to the length of the string then it is treated as if it were end. If first is greater than last then an empty string is returned.
---------------------------------------------------------

Here's what you could do for $nofile for example:
- Start by checking the last character of the string (hint: to go to the last character of the string you can use string index <string> <string length - 1>)

- If it's a "/" then stop and return all the string as it is (since it ends with a "/" and it doesn't contain a file name anyway. Assuming it contains more than 1 character of course).

- Else while (current character is not "/" and current_position > 0) move 1 character backwards (hint: use a while loop and decrement a current_position -> use string index <string> <current_position> to check if the character you are positioned at is a "/").

- Here you have just exited the while.
If <current_position> is > 0 then return the string ranging from 0 to <current_position> (hint: use string range <string> 0 <current_position>)
Note: if you want $nopath then, at the end of your code, just return the string ranging from <current_position + 1> to <string length -1>
(string range <string> <current_position + 1> <string length - 1>)

I hope my example (although not very easily explained) gave you an idea on which logic to use.

Statistics: Posted by z_one — Wed Nov 26, 2003 4:21 pm

]]> 2003-11-26T13:16:24-04:00 2003-11-26T13:16:24-04:00 https://forum.eggheads.org/viewtopic.php?p=30734#p30734 <![CDATA[$nopath and $nofile from mirc]]>
I would like to write $nopath and $nofile that mirc has in tcl.

examples in mirc

$nofile(/dir1/dir2/dir3/file.type) returns /dir1/dir2/dir3/
$nopath(/dir1/dir2/dir3/file.type) returns file.type

Any help for 2 these procedures?

Statistics: Posted by cerberus_gr — Wed Nov 26, 2003 1:16 pm

]]>