Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Longest-common-substring/VBScript/longest-common-substring.vb
+++ b/Task/Longest-common-substring/VBScript/longest-common-substring.vb
@ -0,0 +1,14 @@
+Function lcs(string1,string2)
+	For i = 1 To Len(string1)
+		tlcs = tlcs & Mid(string1,i,1)
+		If InStr(string2,tlcs) Then
+			If Len(tlcs) > Len(lcs) Then
+				lcs = tlcs
+			End If
+		Else
+			tlcs = ""
+		End If
+	Next
+End Function
+
+WScript.Echo lcs(WScript.Arguments(0),WScript.Arguments(1))