Дан текстовый файл, выровненный по левому краю. Выровнять текст по центру - VB

Узнай цену своей работы

Формулировка задачи:

помогите) Дан текстовый файл, содержащий текст, выровненный по левому краю. Выровнять текст по центру, добавив в начало каждой непустой строки нужное количество пробелов (ширину текста считать равной 50). Строки нечетной длины перед центрированием дополнять слева пробелом.

Решение задачи: «Дан текстовый файл, выровненный по левому краю. Выровнять текст по центру»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
    Dim S() As String, ff As Integer, i As Integer, n As Integer, cSp As String
    On Error GoTo m
    ff = FreeFile
    Open App.Path & "\1.txt" For Input As #ff
         Do Until EOF(ff)
             n = n + 1
             ReDim Preserve S(n)
             Input #ff, S(n)
             If Len(S(n)) > 50 Then
                 MsgBox "Длина строки №" & n & " не соответствует заданию(более 50 символов)"
                 GoTo m
             End If
         Loop
    Close #ff
    ff = FreeFile
    Open App.Path & "\1.txt" For Output As #ff
       For i = 1 To UBound(S)
            If Len(S(i)) Mod 2 <> 0 Then S(i) = " " & S(i)
            cSp = String((50 - Len(S(i))) / 2, " ")
            S(i) = cSp & S(i) & cSp
            Print #ff, S(i)
       Next i
    Close #ff
    MsgBox "OK"
Exit Sub
m:  MsgBox "Error"
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы