Atomara
Debrandeter User
Hi@all
ich habe folgenden VB Code und möchte ihn in Gambas übernehmen nur stellt sich mir das Problem mit der Klasse
im code ist die Klasse über dem Sub Main definiert nur hat aber Gambas eine extra Spalte dafür
Wer weiß weiter
Option Strict On
Imports System
Module Module1
Public Class Mustererkennung
Shared Sub Main()
Dim sInput As String
Dim spattern As String
Dim smatch As String
Console.Write("Bitte geben Sie Muster ein: ")
sInput = Console.ReadLine()
spattern = sInput
Console.Write("Bitte geben sie Vergleichsmuster ein: ")
sInput = Console.ReadLine()
smatch = sInput
If (smatch Like spattern) Then
'Der Vergleichsoperator "Like" verhält sich
' hier wie der Vergleichsoperator "-"
Console.WriteLine("ster (0) und (1) sind gleich.", spattern, smatch)
Else
Console.WriteLine("Muster (0) und (1) sind nicht gleich.", spattern, smatch)
End If
Console.ReadLine()
End Sub
End Class
End Module
ich habe folgenden VB Code und möchte ihn in Gambas übernehmen nur stellt sich mir das Problem mit der Klasse
im code ist die Klasse über dem Sub Main definiert nur hat aber Gambas eine extra Spalte dafür
Wer weiß weiter
Option Strict On
Imports System
Module Module1
Public Class Mustererkennung
Shared Sub Main()
Dim sInput As String
Dim spattern As String
Dim smatch As String
Console.Write("Bitte geben Sie Muster ein: ")
sInput = Console.ReadLine()
spattern = sInput
Console.Write("Bitte geben sie Vergleichsmuster ein: ")
sInput = Console.ReadLine()
smatch = sInput
If (smatch Like spattern) Then
'Der Vergleichsoperator "Like" verhält sich
' hier wie der Vergleichsoperator "-"
Console.WriteLine("ster (0) und (1) sind gleich.", spattern, smatch)
Else
Console.WriteLine("Muster (0) und (1) sind nicht gleich.", spattern, smatch)
End If
Console.ReadLine()
End Sub
End Class
End Module