Дан текстовый файл, выровненный по левому краю. Выровнять текст по центру - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д