Advertisement
Guest User

Untitled

a guest
May 12th, 2018
151
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' Imports System.IO
  2.  
  3. Private Sub CommandButton1_Click()
  4.     Dim a, d As String
  5.     Dim k, n, ns, nm, r, t, p As Integer
  6.     Dim m() As String
  7.     Dim v(), s() As Variant
  8.     ns = 0: nm = 0: r = 0: t = 0: p = 0
  9.  
  10.     ' a = InputBox("Enter a number: ")
  11.    ' a = My.Computer.FileSystem.ReadAllText("Текст1.txt", System.Text.Encoding.UTF8)
  12.    a = ReadFromFile("Текст1.txt")
  13.     n = Len(a)
  14.     ReDim m(n - 1)
  15.     ReDim v(n - 1)
  16.     ReDim s(n - 1)
  17.  
  18.     For k = 0 To n - 1
  19.         m(k) = Mid(a, k + 1, 1)
  20.         Next k
  21.    
  22.     For k = 0 To n - 1
  23.         If m(k) Like "[A-Z]" Or m(k) Like "[a-z]" Then
  24.             ns = ns + 1
  25.             v(r) = k
  26.             r = r + 1
  27.  
  28.         ElseIf m(k) Like " " Or m(k) Like "." Then
  29.             p = p + 1
  30.            
  31.         Else
  32.             nm = nm + 1
  33.             s(t) = k
  34.             t = t + 1
  35.         End If
  36.     Next k
  37.  
  38.     If ns >= 1 Then
  39.         For n = 0 To (ns - 1)
  40.             m(v(n)) = "4"
  41.             Next n
  42.     Else
  43.         For n = 0 To (nm - 1)
  44.             m(s(n)) = "4"
  45.             Next n
  46.     End If
  47.  
  48.     For k = 0 To Len(a) - 1
  49.         d = d & m(k)
  50.         Next k
  51.  
  52.     ' MsgBox (d)
  53.    WriteToFile("Текст2.txt", d)
  54.    
  55. End Sub
  56.  
  57. Private Function ReadFromFile(ByRef fileName As String) As String
  58.     Dim fso
  59.     Dim readedString as String
  60.  
  61.     Set file = fso.OpenTextFile(fileName, 1)
  62.     readedString = file.ReadAll
  63.     file.Close
  64.     return readedString
  65. End Function
  66.  
  67. Private Sub WriteToFile(ByRef fileName As String, ByRef s As String)
  68.     Dim f,
  69.     Dim fso
  70.  
  71.     Set fso = CreateObject("Scripting.FileSystemObject")
  72.     Set f = fso.CreateTextFile(fileName, True, True)
  73.  
  74.     f.WriteLine(s)
  75.     f.Close
  76. End Sub
  77.  
  78. ' Private Function ReadFromFile(ByRef fileName As String) As String
  79. '     Dim fileReader As StreamReader
  80. '     Dim readedString, buffer As String
  81.  
  82. '     fileReader = New StreamReader(fileName)
  83.    
  84. '     readedString = ""
  85. '     buffer = fileReader.ReadLine
  86. '     Do While Not buffer Is Nothing
  87. '         readedString += buffer
  88. '         buffer = fileReader.readLine
  89. '     Loop
  90.  
  91. '     fileReader.Close()
  92.  
  93. '     return readedString
  94. ' End Function
  95.  
  96.  
  97. ' Private Sub WriteToFile(ByRef fileName As String, ByRef s As String)
  98. '     Dim fileWriter as StreamWriter
  99.  
  100. '     fileWriter = New StreamWriter(fileName)
  101. '     fileWriter.WriteLine(s)
  102. '     fileWriter.Close()
  103. ' End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement