testTrim("Path/\  \", "\/ ")
testTrim("Hello World", "old")
testTrim("Alice", "Alice")
testTrim("Alice", "alice")
testPath("C:\Users\Brian","file.txt")
testPath("C:\Users\Brian\","\Documents\file.txt")

wait key
end

function testTrim(input$,trimmer$)
print input$ , "->" , trimRight$(input$,trimmer$)
endfunction

function testPath(a$,b$)
print a$ , "+" , b$ , "->" , pathCombine(a$, b$)
endfunction



//Combines two path strings into one valid path
function pathCombine(a as string, b as string)
local already
if (left$(b,1) = "/" or left$(b,1) = "\")
    already = 1
endif
if (right$(a,1) = "/" or right$(a,1) = "\")
    if (already)
        a = trimRight$(a,"/\ ")
    endif
    already = 1
endif
if (already = 0)
    a = a + "\" + b
else
    a = a + b
endif
endfunction a


//Removes any string of the specified characters from the right side of input$
//Case sensitive
function trimRight$(input$, chars$)
local newEnd = len(input$)
local toss = 0
for c = len(input$) to 1 step -1
    toss = 0
    for i = 0 to len(chars$)
        if mid$(chars$,i) = mid$(input$,c)
            toss = 1
            exit
        endif
    next i
    if toss = 0
        exit
    else
        newEnd = c
    endif
next c
input$ = left$(input$, newEnd-1)
endfunction input$