Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Imports System.IO
- Private Sub CommandButton1_Click()
- Dim a, d As String
- Dim k, n, ns, nm, r, t, p As Integer
- Dim m() As String
- Dim v(), s() As Variant
- ns = 0: nm = 0: r = 0: t = 0: p = 0
- ' a = InputBox("Enter a number: ")
- ' a = My.Computer.FileSystem.ReadAllText("Текст1.txt", System.Text.Encoding.UTF8)
- a = ReadFromFile("Текст1.txt")
- n = Len(a)
- ReDim m(n - 1)
- ReDim v(n - 1)
- ReDim s(n - 1)
- For k = 0 To n - 1
- m(k) = Mid(a, k + 1, 1)
- Next k
- For k = 0 To n - 1
- If m(k) Like "[A-Z]" Or m(k) Like "[a-z]" Then
- ns = ns + 1
- v(r) = k
- r = r + 1
- ElseIf m(k) Like " " Or m(k) Like "." Then
- p = p + 1
- Else
- nm = nm + 1
- s(t) = k
- t = t + 1
- End If
- Next k
- If ns >= 1 Then
- For n = 0 To (ns - 1)
- m(v(n)) = "4"
- Next n
- Else
- For n = 0 To (nm - 1)
- m(s(n)) = "4"
- Next n
- End If
- For k = 0 To Len(a) - 1
- d = d & m(k)
- Next k
- ' MsgBox (d)
- WriteToFile("Текст2.txt", d)
- End Sub
- Private Function ReadFromFile(ByRef fileName As String) As String
- Dim fso
- Dim readedString as String
- Set file = fso.OpenTextFile(fileName, 1)
- readedString = file.ReadAll
- file.Close
- return readedString
- End Function
- Private Sub WriteToFile(ByRef fileName As String, ByRef s As String)
- Dim f,
- Dim fso
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set f = fso.CreateTextFile(fileName, True, True)
- f.WriteLine(s)
- f.Close
- End Sub
- ' Private Function ReadFromFile(ByRef fileName As String) As String
- ' Dim fileReader As StreamReader
- ' Dim readedString, buffer As String
- ' fileReader = New StreamReader(fileName)
- ' readedString = ""
- ' buffer = fileReader.ReadLine
- ' Do While Not buffer Is Nothing
- ' readedString += buffer
- ' buffer = fileReader.readLine
- ' Loop
- ' fileReader.Close()
- ' return readedString
- ' End Function
- ' Private Sub WriteToFile(ByRef fileName As String, ByRef s As String)
- ' Dim fileWriter as StreamWriter
- ' fileWriter = New StreamWriter(fileName)
- ' fileWriter.WriteLine(s)
- ' fileWriter.Close()
- ' End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement