vb.net changes to AutoIt

[Codemike 0]

Is it possible to do this simply vb.net program which finds words (or similar) in AutoIt? If is how (or can be someone so nice and shows code)?

Module Module1

Sub Main()

Console.Clear()

Console.Write("Write text: ")

Dim Text = Console.ReadLine()

If ContainsSuchword(Text) Then

Console.WriteLine("There is one or more such words")

Else

Console.WriteLine("There is no such words")

End If

Threading.Thread.Sleep(1000)

End Sub

Private Function ContainsSuchword(ByVal text As String) As Boolean

Dim Suchwords = New String() {"word1", "word2", "you were"}

For Each Suchword In Suchwords

If text.ToLower.Contains(Suchword) Then

Return True

End If

Next

Return False

End Function

End Module

[Melba23 2,773]

Codemike,

Welcome to the AutoIt forum.

You obviously missed this at the top of the page. I have asked a Mod to move it - please do NOT start another thread in the meantime.

M23

[jvanegmond 297]

Here's a line by line conversion of your code. Your old code is put in comments behind the original lines. I have sometimes shortly highlighted the differences between AutoIt and VB.

Writing a console application is not as favorable in AutoIt as it is in VB. If you want to test a console application in AutoIt you have to compile it first. Therefore I have chosen to use InputBox and MsgBox. You are probably familiar with these: VB has them too.

[autoit]Main() ; Main needs to be called in AutoIt. Alternatively, you don't have to define a Main() at all

Func Main() ; Sub Main()

; Console.Clear()

$Text = InputBox("", "Enter text please") ; Console.Write("Write text: ")

; Dim Text = Console.ReadLine()

If ContainsSuchword($Text) Then ;If ContainsSuchword(Text) Then

MsgBox(0, "", "There is one or more such words") ;Console.WriteLine("There is one or more such words")

Else ; Else

MsgBox(0, "", "There is no such words") ; Console.WriteLine("There is no such words")

EndIF ; End If

Sleep(1000)

[jvanegmond 297]

Double posted due to lag. Can't delete posts.

Edited February 2, 2011 by Manadar

[Codemike 0]

Here's a line by line conversion of your code. Your old code is put in comments behind the original lines. I have sometimes shortly highlighted the differences between AutoIt and VB.

Writing a console application is not as favorable in AutoIt as it is in VB. If you want to test a console application in AutoIt you have to compile it first. Therefore I have chosen to use InputBox and MsgBox. You are probably familiar with these: VB has them too.

[autoit]Main() ; Main needs to be called in AutoIt. Alternatively, you don't have to define a Main() at all

Func Main() ; Sub Main()

; Console.Clear()

$Text = InputBox("", "Enter text please") ; Console.Write("Write text: ")

; Dim Text = Console.ReadLine()

If ContainsSuchword($Text) Then ;If ContainsSuchword(Text) Then

MsgBox(0, "", "There is one or more such words") ;Console.WriteLine("There is one or more such words")

Else ; Else

MsgBox(0, "", "There is no such words") ; Console.WriteLine("There is no such words")

EndIF ; End If

Sleep(1000)

Thanks very much your answer. But I'm a beginner in the programming. Can you (or some other) show working code? Don't I need this end to get my vb.net (which is not my original code) program to work?

End Sub

Private Function ContainsSuchword(ByVal text As String) As Boolean

Dim Suchwords = New String() {"word1", "word2", "you were"}

For Each Suchword In Suchwords

If text.ToLower.Contains(Suchword) Then

Return True

End If

Next

Return False

End Function

End Module

[jvanegmond 297]

Damnit. The forum was being broken for me yesterday in multiple places. I did translate that part and I saw the code was fully working after some testing, it just didn't came through in the post. Ofcourse I didn't keep a backup, so I have to re-do it.

Main() ; Main needs to be called in AutoIt. Alternatively, you don't have to define a Main() at all

Func Main() ; Sub Main()
    ; Console.Clear()
    $Text = InputBox("", "Enter text please") ; Console.Write("Write text: ")
    ; Dim Text = Console.ReadLine()
    If ContainsSuchword($Text) Then ;If ContainsSuchword(Text) Then
        MsgBox(0, "", "There is one or more such words") ;Console.WriteLine("There is one or more such words")
    Else ; Else
        MsgBox(0, "", "There is no such words") ; Console.WriteLine("There is no such words")
    EndIF ; End If
    
    Sleep(1000) ;Threading.Thread.Sleep(1000)
EndFunc; End Sub

Func ContainsSuchWord($Text) ;Private Function ContainsSuchword(ByVal text As String) As Boolean
    Dim $Suchwords[3] = ["word1", "word2", "you were"] ;Dim Suchwords = New String() {"word1", "word2", "you were"}
    For $i = 0 To UBound($Suchwords)-1 ;For Each Suchword In Suchwords
        If StringInStr($Text, $Suchwords[$i]) Then ;If text.ToLower.Contains(Suchword) Then
            Return True
        EndIf ;End If
    Next
    Return False
EndFunc;End Function

Here you go. :/