Advertisement
Java_Volume1 Complete Applications #95018

Sound Dialer

This program dials a person's number and then when they pick up press play and it will play a wav file to them, all you have to make sure is that you have cable attached from your sound card to your modem mic input. Its that simple.

AI

AIサマリー: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

ソースコード
original-source
Upload
Function WrapIt(varString,varNumChar,boolBreak)
' Word Wraps a string varString at end of word nearest column position varNumChar
' If boolBreak is true then the wrap will take place at position varNumChar regardless
    varString=Trim(varString)
     varSetBR = "<br>"
    result=""
    varString=Replace(varString,chr(13)+chr(10),chr(10))
    while varString<>""
        if len(varString)<=varNumChar then
            line=varString
            varString=""
        else
            varTemp1=left(varString,varNumChar)
            iCount=InStrRev(varTemp1," ")
            varInPlace=InStr(varTemp1,"chr(10)")
            if (iCount=0) and not boolBreak then iCount=InStr(varString," ")
            if (varInPlace=0) and not boolBreak then varInPlace=InStr(varString,chr(10))
            if (varInPlace<iCount) and (varInPlace>0) then
                finish=j-1
                start=varInPlace+1
            elseif iCount=0 then
                finish=varNumChar
                start=varNumChar+1
            else
                finish=iCount
                start=iCount+1
            end if
            line=left(varString,finish)
            varString=ltrim(mid(varString,start))
        end if
        'if result="" then result=line else
result=result&chr(10)&line
    wend
	   if left(result,1) = chr(10) then
		  result = right(result,(len(result)-1))
		 end if
    WrapIt=Replace(result,chr(10),varSetBR)
		
end function
オリジナルのコメント (3)
Wayback Machineから復元