// This function shows how to extract each line of text from a plain text file using a notebook.
Function PrintTextFileContents()
	String nb = UniqueName("TempNB", 10, 0)
	OpenNotebook /N=$nb ""				// Display open file dialog
	DoWindow $nb							// Check if notebook exists
	if (V_flag == 0)
		return -1							// User canceled
	endif
 
	Notebook $nb, selection={startOfParagraph,endOfParagraph}
	do
		GetSelection Notebook, $nb, 2		// Sets S_selection to paragraph's text
		if (strlen(S_selection) == 0)
			break
		endif
		String text = S_selection
		text = ReplaceString("\r\n", text, "\r")		// Replace CRLF with CR
		text = ReplaceString("\n", text, "\r")			// Replace LF with CR
		Print strlen(text), text
		Notebook $nb, selection={startOfNextParagraph,endOfNextParagraph}
  	while (1)
 
	DoWindow/K $nb
 
	return 0
End