Запись в необходимом формате

[Druid-2004]

Очень нужно записать в определенном формате:
*форма
*две строки ввода
*кнопка запуска

Private Sub Command1_click()
a$=form1.TextBox1.text
b$=form1.TextBox2.text
open "file.dat" for append as #1
\\здесь нужно записать строку в файл таким образом:
485677 |какая-то неважная строка |
^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
не важно | здесь не важно, сколько символов в массиве b$, важно
какое количество\ чтобы разделитель стоял 20-м по счету
символов в массиве a$,\
важно, чтобы разделитель\
стоял в восьмым по счету\
извесно точно - символов будет не больше семи\
close #1
End Sub

[SHURUP]

здесь не важно, сколько символов в массиве b$, важно
какое количество

Толи я торможу с утра, толи ты не совсем коректно обьяснил, что именно тебе надо!
Уточни, и тебе помогут!

[Druid-2004]

Не важно сколько символов будет записано в массив a$, важно чтобы символ, разделяющий записанные в файл данные, был на 8-ой позиции... что-то типа
XXXXXXXYZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ
где:
X - символы из массива a$
Y - символ, разделяющий записанные в файл данные
Z - символы из массива b$

То есть, в записанном в файл варианте,
при условии, что a$="bla1",b$="bla-bla-bla",
должно быть следующее:

bla1___|bla-bla-bla_______________________________________

Ну не знаю, куда более точнее сказать...

[_Мика_]

SHURUP согласен с табой!

А если не секрет зачем? может есть другое решение этой задачи?

[Druid-2004]

SHURUP согласен с табой!

А если не секрет зачем? может есть другое решение этой задачи?

Не секрет, но другого решения нет.... очень не хочу с базами возица... ))

[SHURUP]

На вторую формулировку вопроса:

Код: Выделить всё

Private Sub Command1_Click()
Const SeparatorPos = 8  'позиция разделителя
    Separator$ = "|"    'символ-разделитель
    spaceChar$ = "_"    'символ для заполнения если длина а$ меньше чем нужно.
    a$ = Text1.Text
    b$ = Text2.Text
    If Len(a$) > SeparatorPos - 1 Then
        'если есть лишние символы - удаляем
        a$ = Left$(a$, SeparatorPos - 1)
    ElseIf Len(a$) < SeparatorPos - 1 Then
        'если длина a$ меньше чем надо заполняем символом spaceChar$
        a$ = a$ & String$(SeparatorPos - Len(a$) - 1, spaceChar$)
    End If
Open "file.dat" For Append As #1
    Print #1, a$ & Separator$ & b$
Close
End Sub


[tyomitch]

На вторую формулировку вопроса:

Код: Выделить всё

Private Sub Command1_Click()
Const SeparatorPos = 8  'позиция разделителя
    Separator$ = "|"    'символ-разделитель
    spaceChar$ = "_"    'символ для заполнения если длина а$ меньше чем нужно.
    a$ = Text1.Text
    b$ = Text2.Text
    If Len(a$) > SeparatorPos - 1 Then
        'если есть лишние символы - удаляем
        a$ = Left$(a$, SeparatorPos - 1)
    ElseIf Len(a$) < SeparatorPos - 1 Then
        'если длина a$ меньше чем надо заполняем символом spaceChar$
        a$ = a$ & String$(SeparatorPos - Len(a$) - 1, spaceChar$)
    End If
Open "file.dat" For Append As #1
    Print #1, a$ & Separator$ & b$
Close
End Sub


Опять же, а вот как сделал бы я:

Код: Выделить всё

Private Sub Command1_Click()
Const SeparatorPos = 8  'позиция разделителя
    Separator$ = "|"    'символ-разделитель
    spaceChar$ = "_"    'символ для заполнения если длина а$ меньше чем нужно.
    a$ = Left$(Text1.Text & String$(SeparatorPos - 1, spaceChar$), SeparatorPos - 1)
    b$ = Text2.Text
Open "file.dat" For Append As #1
    Print #1, a$ & Separator$ & b$
Close
End Sub


[SHURUP]

2 tyomitch: Я в шоке (и уже не в первый раз)!

[gaidar]

А вообще, надо создавать класс для файла этого формата и работать с ним через объекты. Конечно, в VB6 ООП не на высшем уровне, но надо себя готовить к .NET.

Код Тёмыча можно запихать в метод Write