How to know a doc's return method

Oh, yes, I do have a further question.

I’m writing a slash-cvt.vbee macro.

	' This VBScript macro do the following:

	' For a block of selected text, 

	' * if a / is found, replace all occurance of / to  .

	' * else if a  is found, replace all  to / .

	' After the macro is executed, the converted text will remain at its select state(invert-colored).

	

	Set ds = document.selection

	slen = Len(ds.Text) ' get selected text length

	posSlash = InStr(ds.Text, "/")

	posBkSlash = InStr(ds.Text, "")

	

	If posSlash>0 and (posBkSlash=0 or posBkSlash>posSlash) Then

		' / in selected text and / appears before  

		ds.Text = Replace(ds.Text, "/", "")

		ds.CharLeft True, slen 'make the new text in selected state(inverted color)

	ElseIf posBkSlash>0 Then

		'  in selected text

		ds.Text = Replace(ds.Text, "", "/")

		ds.CharLeft True, slen

	Else

		Set WshShell = CreateObject( "WScript.Shell" )

		n = WshShell.Popup( "There is no / or  in your selected text. This macro can do nothing.", 0, "EmEditor Macro running", 0 )

		Set dc = document.config

		crlf_style = dc.FileSave.ReturnMethod

		WshShell.Popup "abc" & crlf_style

	End If

	

If the selection is partial line, or, multiple lines of a Unix text file, it works well. However, if the selection is multiple lines of a CRLF text file, there is something wrong: ds.CharLeft True, slen will move(select) visually more characters than I expect, –because, at end of a line, ds.CharLeft True, 1 will actually step 2 characters(CR and LF).

So, If I can know whether a text file is CRLF-ed, I can replace all CRLF to LF before I count slen=Len(ds.Text) , so that the finally selection length will be correct.

I hope you can add this property in future version. On the other hand, is there another way to achieve the same goal(implement the slash-cvt.vbee macro)?

Excuse me, I cannot tell how document.GetLine() can help. In order to call GetLine, I have to know the line numbers of the selected text, which seems to stray away from my topic.

This issue is not urgent. I can wait until next EmEditor release when you add a document property to tell current document’s return method.

Regards.

Many thanks to your final clear reply. Now I know that EmEditor supports mixed EOL mark. And thank you for pointing out

	str = document.GetLine( 1, eeGetLineWithNewLines )

	

can find out the EOL of line 1. (Yes, I must use 1 as first parameter instead of 0. 0 will cause script error “Invalid procedure call or argument”.

Now, I realize that I pratically don’t have to care if current text file has LF or CRLF as end-of-line marker; I can simply replace all occurence of “rn” to “n” before counting slen, then my goal is fulfilled.

So my script becomes:

	' This VBScript macro do the following:

	' For a block of selected text, 

	' * if a / is found, replace all occurance of / to  .

	' * else if a  is found, replace all  to / .

	' After the macro is executed, the converted text will remain at its select state(invert-colored).

	

	Set ds = document.selection

	TextCopy = Replace(ds.Text, chr(13)+chr(10), chr(10)) 'replace rn to be one n

	slen = Len(TextCopy) 'get selected text length, rn counted as only one char

	posSlash = InStr(ds.Text, "/")

	posBkSlash = InStr(ds.Text, "")

	

	If posSlash>0 and (posBkSlash=0 or posBkSlash>posSlash) Then

		' / in selected text and / appears before  

		ds.Text = Replace(ds.Text, "/", "")

		ds.CharLeft True, slen 'make the new text in selected state(inverted color)

	ElseIf posBkSlash>0 Then

		'  in selected text

		ds.Text = Replace(ds.Text, "", "/")

		ds.CharLeft True, slen

	Else

		Set WshShell = CreateObject( "WScript.Shell" )

		n = WshShell.Popup( "There is no / or  in your selected text. This macro can do nothing.", 0, "EmEditor Macro running", 0 )

	End If

	

EmEditor is so great with custom script.