PureBasic Forums - English

Code: Select all

Procedure words_missing_in_master_wordlist_import_and_process_pre_count_words_in_file(file$)
  
  ; Refresh the gadgets since it froze their refreshment
  GadgetsRefresh()
  
  
  Debug "file$:"+file$
  
  ; Load the .txt file
  ReadFile(1,file$)
    ReadStringFormat(1)
    
    location_of_file.q=Loc(1)
 
    ; Check the line ending, Windows, Unix, Mac
    file_ending$=""
    Repeat
      t$=Chr(ReadByte(1))
      If t$=#CR$
        If Chr(ReadByte(1))=#LF$ : t$+#LF$ : EndIf
      EndIf
      If t$=#CRLF$
        Debug "End of line: Windows (CR+LF)"
        file_ending$=#CRLF$
      ElseIf t$=#LF$
        Debug "End of line: Unix (LF)"
        file_ending$=#LF$
      ElseIf t$=#CR$
        Debug "End of line: Mac (CR)"
        file_ending$=#CR$
      EndIf
    Until Eof(1) Or file_ending$<>""
      
    FileSeek(1,location_of_file.q)
    
    t$=ReadString(1,#PB_UTF8|#PB_File_IgnoreEOL) 
  CloseFile(1)
  
  ; Convert to Unix
;   ConvertStringToUnix(t$)
  
  ; Count number of words
  counter=CountString(t$,file_ending$)
  If Right(t$,Len(file_ending$))<>file_ending$ : counter+1 : EndIf
  
  Debug "counter:"+Str(counter)
  
  ; Return the number of words
  ProcedureReturn counter
  
EndProcedure

Code: Select all

Procedure IsCRLF(text$)
	Protected CR, LF
	LF = CountString(text$, #LF$)
	CR = CountString(text$, #CR$)
	If LF = 0 And CR = 0
		Debug "undefined"
	Else
		If LF = CR
			If LF = CountString(text$, #CRLF$)
				Debug "CRLF (Win)"
			Else
				Debug "mixed"
			EndIf
		ElseIf LF And Not CR
			Debug "LF (Linux)"
		ElseIf CR And Not LF
			Debug "CR (Mac)"
		Else
			Debug "mixed"
		EndIf
	EndIf
EndProcedure

IsCRLF("qwerty")
IsCRLF("qwerty" + #CRLF$ + "qwerty" + #CRLF$ + "qwerty" + #CRLF$)
IsCRLF("qwerty" + #CRLF$ + "qwerty" + #CR$ + "qwerty" + #LF$)
IsCRLF("qwerty" + #CR$ + "qwerty" + #LF$ + "qwerty" + #CR$ + "qwerty" + #LF$)
IsCRLF("qwerty" + #LF$ + "qwerty" + #LF$ + "qwerty" + #LF$)
IsCRLF("qwerty" + #CR$ + "qwerty" + #CR$ + "qwerty" + #CR$)

Code: Select all

EnableExplicit

Procedure z(x)
	Select x
		Case 1
			Debug "CRLF (Win)"
		Case 2
			Debug "LF (Linux)"
		Case 3
			Debug "CR (Mac)"
		Default 
			Debug "undefined"
	EndSelect
EndProcedure

Procedure IsCRLF(*c.Character)
	Protected *c2.Character
	Protected res
	
	If *c = 0 Or *c\c = 0
		ProcedureReturn 0
	EndIf
	
	While *c\c
		If *c\c = #CR Or *c\c = #LF
			If *c\c = #LF
				res = 2
				Break
			ElseIf *c\c = #CR
				*c + SizeOf(Character)
				If *c\c = #LF
					res = 1
					Break
				Else	
					res = 3
					Break
				EndIf
			EndIf
		EndIf
		*c + SizeOf(Character)
	Wend
	
	ProcedureReturn res
EndProcedure

Define MyStr$

MyStr$ = "qwerty"
z(IsCRLF(@MyStr$))
MyStr$ = "qwerty" + #CRLF$ + "qwerty" + #CRLF$ + "qwerty" + #CRLF$
z(IsCRLF(@MyStr$))
MyStr$ = "qwerty" + #CRLF$ + "qwerty" + #CR$ + "qwerty" + #LF$
z(IsCRLF(@MyStr$))
MyStr$ = "qwerty" + #CR$ + "qwerty" + #LF$ + "qwerty" + #CR$ + "qwerty" + #LF$
z(IsCRLF(@MyStr$))
MyStr$ = "qwerty" + #LF$ + "qwerty" + #LF$ + "qwerty" + #LF$
z(IsCRLF(@MyStr$))
MyStr$ = "qwerty" + #CR$ + "qwerty" + #CR$ + "qwerty" + #CR$
z(IsCRLF(@MyStr$))