СРОЧНО! ПОМОГИТЕ, или я сегодня не получу зарплату... (

[Druid-2004]

С этим исходником символ сепаратора ставится 10 по счету.

Const SeparatorPos = 10
Separator$ = "|"
spaceChar$ = " "
a$ = RandomName
b$ = NameOrg
If Len(a$) > SeparatorPos - 1 Then
a$ = Left$(a$, SeparatorPos - 1)
ElseIf Len(a$) < SeparatorPos - 1 Then
a$ = a$ & String$(SeparatorPos - Len(a$) - 1, spaceChar$)
End If
Print a$ & Separator$ & b$

Но массив b$ печатается на всю оставшуюсю строку

У меня следующий вопрос:
Мне нужно изменить этот исходник таким образом, чтобы было следующее:

значение первое | значение второе | значение третье

первый сепаратор должен стоять 30-м по счету,
второй сепаратор через 10 символов от первого,
третий 15-м от второго.

ОЧЕНЬ НУЖНО! ПОМОГИТЕ, ПЛИЗ.... ИНАЧЕ СЕДНЯ Я НЕ ПОЛУЧУ ЗАРПЛАТУ... ((((

[Max!]

Думаю так :

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

Const SeparatorPos = 10
Separator$ = "|"
spaceChar$ = " "
a$ = RandomName
b$ = NameOrg
If Len(a$) > SeparatorPos - 1 Then
a$ = Left$(a$, SeparatorPos - 1)
ElseIf Len(a$) < SeparatorPos - 1 Then
a$ = a$ & String$(SeparatorPos - Len(a$) - 1, spaceChar$)
End If

Print a$ & vbCrLf
Print Separator$ & vbCrLf
Print b$ & vbCrLf


[Druid-2004]

Нет, этот примар только для примера

Думаю так :

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

Const SeparatorPos = 10
Separator$ = "|"
spaceChar$ = " "
a$ = RandomName
b$ = NameOrg
If Len(a$) > SeparatorPos - 1 Then
a$ = Left$(a$, SeparatorPos - 1)
ElseIf Len(a$) < SeparatorPos - 1 Then
a$ = a$ & String$(SeparatorPos - Len(a$) - 1, spaceChar$)
End If

Print a$ & vbCrLf
Print Separator$ & vbCrLf
Print b$ & vbCrLf


..хорошо... сепараторов в нужном мне исходнике, нужно 2, которые будут разделять три разных по величине символов значений.
Примерно вот так...
A$ | B$ | C$

Но главное, чтобы это записывалось одной строкой, а не тримя, как ты мне предложил. И положение сепараторов в записываемой строке слишком важно для меня.

[alibek]

Print a$;Tab(30);Separator;b$;Space$(10);Separator;c$;Space$(15);Separator

Только может тебе лучше менять работу?

[tyomitch]

Нет, alibek, ты не понял... Наверное, имелось в виду

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

Print a$;Tab(29);Separator$;b$;Tab$(39);Separator$;c$;Tab$(44);Separator$


Но я бы сделал так:

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

Print Left$(a$ & String$(29, spaceChar$), 29) & Separator$ & Left$(b$ & String$(9, spaceChar$), 9) & Separator$ & Left$(c$ & String$(14, spaceChar$), 14) & Separator$


[FaKk2]

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

Dim SPos(2, 1) As Integer
Dim RandomName$, NameOrg$, Separator$, spaceChar$, Str$

RandomName = "Roman Vladimirovich Royter"
NameOrg = "Royter's Home Incorporated"

SPos(0, 0) = 30
SPos(1, 0) = 40
SPos(2, 0) = 55

Separator = "|"
spaceChar = " "
Str = RandomName & NameOrg
'b$ = NameOrg
For i = 0 To 2
    If Len(Str) > SPos(i, 0) Then SPos(i, 1) = 1 _
    Else SPos(i, 1) = 0
Next i

For i = 0 To 2
    If SPos(i, 1) = 1 Then
        Str = Left(Str, SPos(i, 0)) & _
        spaceChar & Separator & spaceChar & _
        Right(Str, Len(Str) - SPos(i, 0))
    End If
Next i

Print Str


Намутил типа
Текст есс-но для примера

[tyomitch]

FAKK2, ты имхо во-первых не так понял задачу - дробить одну строку на части не нужно, нужно только разделять разные.
Ну и во-вторых, есть такой тип - Boolean, с которым всё интуитивнее:

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

Dim SPos(2) As Integer, SBool(2) As Boolean
Dim RandomName$, NameOrg$, Separator$, spaceChar$, Str$

RandomName = "Roman Vladimirovich Royter"
NameOrg = "Royter's Home Incorporated"

SPos(0) = 30
SPos(1) = 40
SPos(2) = 55

Separator = "|"
spaceChar = " "
Str = RandomName & NameOrg
'b$ = NameOrg
For i = 0 To 2
    SBool(i) = (Len(Str) > SPos(i)) '!!
Next i

For i = 0 To 2
    If SBool(i) Then '!!
        Str = Left(Str, SPos(i)) & _
        spaceChar & Separator & spaceChar & _
        Right(Str, Len(Str) - SPos(i))
    End If
Next i

Print Str