PureBasic Forums - English

Code: Select all

filehandle.i
txt.s
timesThrough.i
Global Dim concord.s(1)
maxRec.i

; Open the file containing the raw data.
filehandle = PB_Any
result = ReadFile(filehandle, "D:\testfile.txt")
If err > 0
  Debug "Error opening file."
  End
EndIf
    
For timesThrough = 1 To 50  ;2336
  txt = ""
  
  ; **** Read each line of raw data.
  If Lof(filehandle) > 0
    txt = ReadString(filehandle)
  EndIf
    
  ; *** Strip off the Bible reference for later use.
  startPos.i = 5
  startPos2.i = FindString(txt, " ", 5)
  
  If Left(txt, 3) = "Mat"
    ref.s = " " + Left(txt, startPos2 - 1) + ","
    ref2.s = " " + Mid(txt, startPos, startPos2 - startPos) + ","
  Else
    ref = ref
    ref2 = ref2
  EndIf
  txt = Mid(txt, startPos2 + 1)
  
  ; **** Parse the line of data into a one-dimensional array
  ; of individual values as delimited by any of several
  ; characters. None of these characters are returned in
  ; the result. Provide a list of delimiters.
  delimitList.s
  oneChar.s
  aWord.s
  codeCount.i
  Dim wordList.s(0);0
  ReDim wordList(0);0
  
  ; Characters recognized as delimiters.
  delimitList = " ,.;:+/!|?()'"+Chr(34)
  
  i.i
  j.i
  k.i
  codeCount = 0
  
  i = Len(txt)
  For j = 1 To i
    ; Read one char at a time.
    oneChar = Mid(txt, j, 1)
    ; Is this one a delimiter?
    k = FindString(delimitList, oneChar)
    ; Is it isn't, add to the current word.
    If k = 0
      aWord = aWord + oneChar
    EndIf
    ; If it is, or if we're finished ...
    If k <> 0 Or j = i
      If aWord > ""
        ; Save the word.
        codeCount = codeCount + 1
        ReDim wordList(codeCount)
        wordList(codeCount) = aWord
        aWord = ""
      EndIf
    EndIf
  Next j
  
  ; **** Sort the array into alphabetical order.
  SortArray(wordList(), 2)
  
  ; **** Attach the reference to each word in the array.
  ;For index.i = 1 To ArraySize(wordList())
  ;  wordList(index) + ref
  ;Next index
 
  ; **** Remove the duplicated words from the array
  ; keeping count of the words removed.
  lowbound.i
  upBound.i
  Dim tempArray.s(0);0
  cur.i
  A.i
  B.i
  
  ; Check for empty array.
  If (wordList(0) = "")
    Break
  EndIf
    
  ; We need these often.
  lowBound = 1 ;lbound(wordList)
  upBound = ArraySize(wordList())
  
  ; Reserve check buffer.
  ReDim tempArray(upBound)
  
  ; Set first item.
  cur = lowBound
  tempArray(cur) = wordList(lowBound)
    
  ; Loop through all items.
  For A = lowBound + 1 To upBound
    ; Make a comparison against all items.
    For B = lowBound To cur
      ; If it is a duplicate, exit array.
      If StringByteLength(tempArray(B)) = StringByteLength(wordList(A))
        If wordList(A) = tempArray(B)
          Break
        EndIf
      EndIf
    Next B
    ; Check if the loop was exited; add new item to check buffer if not.
    If B > cur
      cur = B
      tempArray(cur) = wordList(A)
    EndIf
  Next A
  ; Fix size.
  ReDim tempArray(cur)
  ; Copy
  ReDim wordList(cur)
  CopyArray(tempArray(), wordList())
  
  ; **** Sort the new list.
  SortArray(wordList(), 2)
  
  ; **** Append the wordList array onto the concord array.
  If concord(0) = ""
  ;If SafeArrayGetDim(concord) > 0
    ; Merges two arrays.
    ; wordList is appended to the end of concord.
    ; If killSource is set to true, then
    ; wordList is erased following the merge.
    el.i
    pos.i
    temp.i
    uBoundSource.i
    lBoundSource.i
    uBoundDest.i
    killSource.i
    true.i = 1
    killSource = true
    
    If (wordList(1)="") And (concord(1)="")
      Break
    EndIf

    lBoundSource = 1
    uBoundSource = ArraySize(wordList())
    uBoundDest = ArraySize(concord())
    temp = uBoundSource - lBoundSource + 1
    
    pos = ArraySize(concord()) + 1
    ReDim concord(ArraySize(concord()) + temp)
    For el = uBoundDest To pos Step -1
      concord(el + temp) = concord(el)
    Next el
    uBoundSource = pos + temp - 1
    For el = pos To uBoundSource
      concord(el) = wordList(el - pos)
    Next el
    If killSource = true 
      FreeArray(wordList())
    EndIf
  Else
    ReDim concord(ArraySize(wordList()))
    CopyArray(wordList(), concord())
  EndIf
  
  ; **** Sort the concord array.
  SortArray(concord(), 2)
    
  ; **** Remove the duplicated words from the array
  ; keeping count of the words removed.
  
  ; Check for empty array.
  ;If (concord(1) = "")
  ;  Break
  ;EndIf
    
  ; We need these often.
  lowBound = 0
  upBound = ArraySize(concord())
  
  ; Reserve check buffer.
  ReDim tempArray(upBound)
  
  ; Set first item.
  cur = lowBound
  tempArray(cur) = concord(lowBound)
  
  ; Loop through all items.
  For A = lowBound + 1 To upBound
    ; Make a comparison against all items.
    For B = lowBound To cur
      ; If it is a duplicate, exit array.
      If StringByteLength(tempArray(B)) = StringByteLength(concord(A))
        If concord(A) = tempArray(B)
          Break
        EndIf
      EndIf
    Next B
    ; Check if the loop was exited; add new item to check buffer if not.
    If B > cur
      cur = B
      tempArray(cur) = concord(A)
    EndIf
  Next A
  ; Fix size.
  ReDim tempArray(cur)
  ; Copy
  ReDim concord(cur)
  CopyArray(tempArray(), concord())
  ;SortArray(concord(), 2)

Next timesThrough

; **** Finally, sort and print the concord array.
SortArray(concord(), 2)

For index = 1 To ArraySize(concord())
  If concord(index) > "@"
    Debug(concord(index))
  EndIf
Next index
Debug Str(ArraySize(concord()))
Debug ref

End

Code: Select all

Mat 1:1 La libro de la genealogio de Jesuo Kristo, filo de David, filo de Abraham.
Mat 1:2 Al Abraham naskigis Isaak, kaj al Isaak naskigis Jakob, kaj al Jakob naskigis Jehuda kaj liaj fratoj,
Mat 1:3 kaj al Jehuda naskigis Perec kaj Zeraĥ el Tamar, kaj al Perec naskigis Ĥecron, kaj al Ĥecron naskigis Ram,
Mat 1:4 kaj al Ram naskigis Aminadab, kaj al Aminadab naskigis Naĥŝon, kaj al Naĥŝon naskigis Salma,
Mat 1:5 kaj al Salma naskigis Boaz el Raĥab, kaj al Boaz naskigis Obed el Rut, kaj al Obed naskigis Jiŝaj,
Mat 1:6 kaj al Jiŝaj naskigis David, la reĝo. Kaj al David la reĝo naskigis Salomono el [la] [edzino] de Urija,
Mat 1:7 kaj al Salomono naskigis Reĥabeam, kaj al Reĥabeam naskigis Abija, kaj al Abija naskigis Asa,
Mat 1:8 kaj al Asa naskigis Jehoŝafat, kaj al Jehoŝafat naskigis Joram, kaj al Joram naskigis Uzija,
Mat 1:9 kaj al Uzija naskigis Jotam, kaj al Jotam naskigis Aĥaz, kaj al Aĥaz naskigis Ĥizkija,
Mat 1:10 kaj al Ĥizkija naskigis Manase, kaj al Manase naskigis Amon, kaj al Amon naskigis Joŝija,
Mat 1:11 kaj al Joŝija naskigis Jeĥonja kaj liaj fratoj, je la tempo de la deporto en Babelon.
Mat 1:12 Kaj post la deporto en Babelon, al Jeĥonja naskigis Ŝealtiel, kaj al Ŝealtiel naskigis Zerubabel,
Mat 1:13 kaj al Zerubabel naskigis Abiud, kaj al Abiud naskigis Eljakim, kaj al Eljakim naskigis Azor,
Mat 1:14 kaj al Azor naskigis Cadok, kaj al Cadok naskigis Aĥim, kaj al Aĥim naskigis Eliud,
Mat 1:15 kaj al Eliud naskigis Eleazar, kaj al Eleazar naskigis Mattan, kaj al Mattan naskigis Jakob,
Mat 1:16 kaj al Jakob naskigis Jozef, edzo de Maria, el kiu estis naskita Jesuo, kiu estas nomata Kristo.
Mat 1:17 Tial ĉiuj generacioj de Abraham ĝis David [estis] dek kvar generacioj, kaj de David ĝis la deporto en Babelon [estis] dek kvar generacioj, kaj de la deporto en Babelon ĝis la Kristo [estis] dek kvar generacioj.
Mat 1:18 Nun la naskiĝo de Jesuo Kristo estis tiel: Ĉar lia patrino Maria estis fianĉinigita al Jozef, antaŭ ol ili kunvenis, ŝi troviĝis havanta [bebo] en utero per la Sankta Spirito. 
Mat 1:19 Sed Jozef, ŝia edzo, estante justa, kaj ne volante elmeti ŝin publike, konsideris ŝin sekrete forsendi.
Mat 1:20 Kaj [kiam] li pripensis tion, jen anĝelo de [la] Sinjoro aperis al li en sonĝo, dirante, "Jozef, filo de David, ne timu preni Maria [kiel] via edzino, ĉar la [bebo] en ŝi, estis koncipiĝita per la Sankta Spirito.
Mat 1:21 Kaj ŝi naskos filon; kaj vi vokos lian nomon Jesuo; ĉar li savos sian popolon de ĝiaj pekoj."
Mat 1:22 Nun ĉio [tio] okazis, por ke plenumiĝu la [vorto] la Sinjoro parolis per la profeto, dirante:
Mat 1:23 Jen virgulino havos [bebo] en utero kaj naskos filon, Kaj oni vokos lian nomon Emanuel, tio estas, tradukata, "Dio kun ni."
Mat 1:24 Kaj Jozef, estas vekita de [lia] dormo, faris kiel ordonis lin [per] la anĝelo de [la] Sinjoro, kaj li prenis sian edzinon,
Mat 1:25 kaj ne konis ŝin, ĝis ŝi naskis ŝian filon [la]  unuenaskitan; kaj li vokis lian nomon Jesuo.

Code: Select all

; Open the file containing the raw data.
filehandle = PB_Any
result = ReadFile(filehandle, "D:\testfile.txt")
If err > 0
   Debug "Error opening file."
   End
EndIf

Code: Select all

; Open the file containing the raw data.
filehandle = ReadFile(#PB_Any, "D:\testfile.txt")
If filehandle = 0
   Debug "Error opening file."
   End
EndIf

Code: Select all

   If Lof(filehandle) > 0
      txt = ReadString(filehandle)
   EndIf

Code: Select all

   If Eof(filehandle)
      Break
   EndIf   
   
   txt = ReadString(filehandle, #PB_UTF8)

Code: Select all

mystring.s = "a b" 

For a = 1 To Len(mystring) 
  c.s = Mid(mystring,a,1)
  If Chr(' ') = c   <----
    Debug "space"
  EndIf 
Next 

Code: Select all

filehandle = ReadFile(#PB_Any, "D:\testfile.txt")
If filehandle = 0
  Debug "Error opening file."
  End
EndIf

If Not Eof(filehandle)
  bom = ReadStringFormat(filehandle)
  Select bom
    Case #PB_Ascii, #PB_UTF8, #PB_Unicode ;no problem
    Case #PB_UTF16BE, #PB_UTF32, #PB_UTF32BE
      MessageRequester("Error", "Text file is in a text format that cannot be read.")
      End
  EndSelect
  
EndIf

For timesThrough = 1 To 50  ;2336
  txt = ""

;code continues from here

Code: Select all

 ; If it is, or if we're finished ...
    If k <> 0 Or j = i
      If aWord > ""
        ; Save the word.
        codeCount = codeCount + 1
        ReDim wordList(codeCount)
        wordList(codeCount) = aWord
        aWord = ""
      EndIf
    EndIf

Code: Select all

; If it is, or if we're finished ...
    If k <> 0 Or j = i
      If aWord > ""
        ; Save the word.
        ReDim wordList(codeCount)
        wordList(codeCount) = aWord
        codeCount = codeCount + 1
        aWord = ""
      EndIf
    EndIf