заполнение массива

[DpolenST]

Сообщение от goshek

Можно чуточку подробней как то пожалуйста? эксель не дает присвоить А1 значение, которое вы привели в своем примере. Спасибо

Вообще-то проблем с A1 не должно быть, это просто текст из 10 символов. В крайнем случае сами вставьте нужные вам символы - это 10 символов из которых будут состоять ваши коды.

Проблема может быть с B2, только сейчас заметил что форум автоматически вставил туда пробелы. Попробуйте так В2:

=СЦЕПИТЬ(ПСТР($A$1;ПСТР(A2;1;1)+1;1);ПСТР($A$1;ПСТР(A2;2;1)+1;1);ПСТР($A$1;ПСТР(A2;3;1)+1;1);ПСТР($A$1;ПСТР(A2;4;1)+1;1);ПСТР($A$1;ПСТР(A2;5;1)+1;1))

[Serge_Bliznykov]

или готовые коды:codes.rar

[goshek]

Сообщение от Serge_Bliznykov

ну, если так сильно надо, сгенерите самостоятельно вот этой программой:
Вложение 65298


p.s. исходник (Delphi) такой:
Вложение 65299

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm5 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

const
  Digits : string = '0123456789abcdefghijklmnopqrstuvwxyz';

function IntToCode(const A : integer; const Len : integer ) : string;
var AA : integer;
  i, Base : integer;
begin
  Result := '';
  if A = 0 then
   for i := 1 to Len do Result := Result + '0'
  else begin
    Base := Length(Digits);
    AA := A;
    while AA>0 do begin
      Result :=  Digits[ (AA mod Base)+1 ] + Result;
      AA := AA div Base;
    end;
    while Length(Result)<Len do Result := '0' +Result;
    
  end;
end;

procedure TForm5.Button1Click(Sender: TObject);
var  ts : TStringList;
  i, N : integer;
begin
  Memo1.Clear;
  N := StrToIntDef(Edit1.Text, 0);
  try
    ts := TStringList.Create.Create;
    for i := 0 to N do
      ts.Append(  IntToCode(i,3) );
  finally
    Memo1.Text := ts.Text;
    ts.Free;
  end;
    
end;

end.

Можете пожалуйста отредактировать программу так, чтобы сначала использовались все возможные буквенные варианты, и только в случае нехватки вариантов к ним добавлялись цифры или одна из букв заменялась цифрой?