MarcusBell
Member
- Joined
- Feb 1, 2005
- Messages
- 12
- Programming Experience
- Beginner
Hi Everyone
I have created code with help from great programmers on this forum, for counting Charactors, words, sentances and Paragraphs and it works under the main form, populates the four fields, which are again Charactor, Word, Sentance and Paragraph. The program is counting these subjects and putting values in. On my main design for I have two buttio, "Analyze File" and "Analyze text" . The "Analyze File" opens a dialog and will read a file text and place counts in respected places. The "Analyze Text" reads text from a large multi-line test box and places counts into respected places.
However I now want to place this code into a "class" and in the main (code) form write code to call the code from the class. The purpose is to get a good understanding between programmers and developers. Example please bare with me.. Programmers will create the classes and all the code.... The developer does not have to do this and can call the new classes created, saves him doing all the big coding work. ( Please not I may have programmers and developers in wrong order on how maybe it is the devloper who does the big code ?? Still learning)
This is what I am trying to do, create all the big code put into a Class and write the code to call these new classes.
The book I have is of no use
Below is the code I have for the two buttons. I have placed the code into a class called StringContents.... Not sure if my code is right at all for setting it up for reading in the main form..?
And I am total stuck on how to right the code in the main form to call up the new class to populate the Design form fields???
Please Help .... Kindest Regards Marcus
I have created code with help from great programmers on this forum, for counting Charactors, words, sentances and Paragraphs and it works under the main form, populates the four fields, which are again Charactor, Word, Sentance and Paragraph. The program is counting these subjects and putting values in. On my main design for I have two buttio, "Analyze File" and "Analyze text" . The "Analyze File" opens a dialog and will read a file text and place counts in respected places. The "Analyze Text" reads text from a large multi-line test box and places counts into respected places.
However I now want to place this code into a "class" and in the main (code) form write code to call the code from the class. The purpose is to get a good understanding between programmers and developers. Example please bare with me.. Programmers will create the classes and all the code.... The developer does not have to do this and can call the new classes created, saves him doing all the big coding work. ( Please not I may have programmers and developers in wrong order on how maybe it is the devloper who does the big code ?? Still learning)
This is what I am trying to do, create all the big code put into a Class and write the code to call these new classes.
The book I have is of no use
Below is the code I have for the two buttons. I have placed the code into a class called StringContents.... Not sure if my code is right at all for setting it up for reading in the main form..?
And I am total stuck on how to right the code in the main form to call up the new class to populate the Design form fields???
Please Help .... Kindest Regards Marcus
VB.NET:
Imports System.IO
Namespace Count
PublicClass Counting
PublicClass AnalyzeFiles
PublicFunction ReadFile(ByVal fileAndPath AsString) AsString
Dim splitSentArray(3) AsString
Dim SplitParArray(3) AsString
Dim SplitWordArray(3) AsString
Dim SplitCharArray(3) AsString
Dim strArray(3) AsString
Dim ofd AsNew OpenFileDialog
Dim fileToSplit, conCat AsString
Dim x AsInteger
ofd.Filter = "Text Files (*.txt)/*.txt/" & _
"All Files (*.*)/*.*"
ofd.FilterIndex = 1
ofd.ShowDialog()
Try
fileAndPath = ofd.FileName
Catch ex As Exception
MessageBox.Show(ex.Message)
EndTry
Dim sR As System.IO.StreamReader
Try
sR = File.OpenText(fileAndPath)
fileToSplit = sR.ReadToEnd()
sR.Close()
SplitCharArray = Split(fileToSplit, " ")
ForEach conCat In SplitCharArray
conCat += conCat
x += +1
Next
strArray(3) = CStr(fileToSplit.Length - x)
splitSentArray = Split(fileToSplit, ".")
strArray(3) = CStr(splitSentArray.Length - 1)
strArray(3) = CStr(x + splitSentArray.Length - 1)
conCat = ""
Dim par AsInteger = 0
sR = File.OpenText(fileAndPath)
DoWhile sR.Peek <> -1
conCat = sR.ReadLine
If strArray(3) = "" Then
strArray(3) = conCat
EndIf
If conCat = "" Then
par += +1
EndIf
Loop
strArray(3) = CStr(par + 1)
Catch System As Exception
MessageBox.Show(System.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
sR = Nothing
GC.Collect()
EndTry
EndFunction
EndClass
PublicClass AnalyzeTexts
PublicFunction ReadText(ByVal strToManipulate AsString) AsString
Dim splitSentArray(3) AsString
Dim SplitParArray(3) AsString
Dim SplitCharArray(3) AsString
Dim SplitWordArray(3) AsString
Dim strArray(3) AsString
Dim conCat AsString
Dim x AsInteger
Try
SplitCharArray = Split(strToManipulate, " ")
ForEach conCat In SplitCharArray
conCat += conCat
x += +1
Next
SplitCharArray(3) = CStr(strToManipulate.Length - x)
splitSentArray = Split(strToManipulate, ".")
splitSentArray(3) = CStr(splitSentArray.Length - 1)
strArray(3) = CStr(x + splitSentArray.Length - 1)
conCat = ""
Dim par AsInteger = 0
DoWhile strToManipulate <> -1
conCat = strToManipulate
If SplitParArray(3) = "" Then
SplitParArray(3) = conCat
EndIf
If conCat = "" Then
par += +1
EndIf
Loop
SplitParArray(3) = CStr(par + 1)
Catch System As Exception
MessageBox.Show(System.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
GC.Collect()
EndTry
EndFunction
EndClass
EndClass
EndNamespace
