AutoHotkey Community

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

; telt aantal tekens (chars) x in bestand regel na regel en stopt ze in ArrayRegel(t)
; in = bestand  uit = lijst


FileSelectFile, SelectedFile, 3, , Open het bestand, Text Documenten (*.txt; *.doc; *.htm; *.html;

*.php;)
if SelectedFile =
{
    MsgBox, Niets geselecteerd
   ExitApp
}

Source = %SelectedFile%
ArrayRegel =
Opgeteld =
x = 0
t = 1
y = 0
Loop Read, %Source%
{
   Loop Parse, A_LoopReadLine,
   {
   x = %A_Index%

   }
     ;msgbox,,, x is %x% index is %A_Index% en t = %t%
   t = %A_Index%
   ArrayRegel%t% := x
   
}
x = 1
Gui, Add, ListView, r20 w470, regel|aantal
Loop, %t%
{
   tmp := ArrayRegel%x%
   Opgeteld += %tmp%
   ;msgbox,,, aantal tekens in ArrayRegel %x% = %tmp% opgeteld = %Opgeteld%
   LV_Add("", x, tmp)
   x += 1
}
LV_ModifyCol(1, "50 Integer")
LV_ModifyCol(2, "50 Integer")   
LV_Add("", "Totaal", Opgeteld)
Gui, Add, Text,, druk escape om te sluiten
Gui, Show

Input, OutputVar,, {Escape}
GuiClose:

Exitapp

COM_Init()
pdoc :=   COM_GetObject(SelectedFile)
cchr :=   COM_Invoke(pchr:=COM_Invoke(pdoc, "Characters"), "Count"), COM_Release(pchr)
COM_Invoke(pdoc, "Close")
COM_Release(pdoc)
COM_Term()
MsgBox % cchr

Set Count = CreateObject("Scripting.Dictionary")

In = WScript.StdIn.ReadAll

Lines = Split(In, vbCrLf)

For Each L in Lines
    Line = Trim(LCase(L))
    For B = 1 To Len(Line)
        C = Asc(Mid(Line, B, 1))
        If C <> Asc(" ") And (C < Asc("a") Or C > Asc("z")) Then
            'WSCript.Echo(Line)
            'WScript.Echo(String(B-1, " ") & "^")
            Line = Left(Line, B-1) & " " & Mid(Line, B+1)
            'WSCript.Echo(Line)
            'WScript.Echo(String(B-1, " ") & "^")
        End If
    Next

    Words = Split(Line, " ")
    For Each Word in Words
        If Word <> " " And Word <> "" Then
            If Count.Exists(Word) Then
                Count.Item(Word) = Count.Item(Word) + 1
            Else
                Count.Item(Word) = 1
            End If
        End If
    Next   
...

SelectedFile = "test.doc"

COM_Init()
  ObjWord := COM_GetActiveObject("Word.Application")
  COM_Invoke(ObjWord,"Visible=",True)
  COM_Invoke(ObjWord,"Activate")

pdoc_ :=   COM_Invoke(ObjWord,"document")
MsgBox   %   pdoc

---------------------------
COM Error Notification
---------------------------
Function Name:   "document"
ERROR:   Unknown name.

   (0x80020006)

Will Continue?
---------------------------
Yes   No   
---------------------------

COM_Init()
ObjWord := COM_GetActiveObject("Word.Application")
COM_Invoke(ObjWord,"Visible=",True)
COM_Invoke(ObjWord,"Activate")
pdoc:=com_invoke(ObjWord,"ActiveDocument")
cchr :=   COM_Invoke(pchr:=COM_Invoke(pdoc, "Characters"), "Count")
COM_Release(pchr)
COM_Release(pdoc)
COM_Term()
MsgBox % cchr

SelectedFile := "test.doc"