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

[goshek]

Помогите решить задачу.

-файл эксель, в нем 19574 города
-каждому городу необходимо присвоить код a-z, 0-9. Код должен быть минимум из 3 символов
-код города должен быть уникальным

в моем распоряжение вижуал студио.

Заранее спасибо

[VIK_aka_TOR]

своеобразная система счисления, коль по аналогии с 16-ричная сс, сперва числа, потом буквы... в итоге получается 36-ричная система счисления... отсюда можешь копать... даже по примитиву брать число с левого столбца экселя и переводить в свою систему... а коль 3 символа стабильно надо - добиваешь спереди что не хватает нулями и все

[goshek]

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

своеобразная система счисления, коль по аналогии с 16-ричная сс, сперва числа, потом буквы... в итоге получается 36-ричная система счисления... отсюда можешь копать... даже по примитиву брать число с левого столбца экселя и переводить в свою систему... а коль 3 символа стабильно надо - добиваешь спереди что не хватает нулями и все

уточняю свой вопрос. Возможно ли при помощи какого либо программнго языка сгенерировать 19574 значений? Конечно же они должны соответствовать критериям (a-z,0-9, минимум 3 знака)

[VIK_aka_TOR]

напишешь генератор и можно будет... все в твоей власти... язык - любой, к которому можно привязать эксель ваш) и сишарп и плюсы подходят...

[DpolenST]

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

уточняю свой вопрос. Возможно ли при помощи какого либо программнго языка сгенерировать 19574 значений? Конечно же они должны соответствовать критериям (a-z,0-9, минимум 3 знака)

возможно, и в excel возможно
к примеру
A1 = "abcd123456"
A2 = "10000"
B2 = "=СЦЕПИТЬ(ПСТР($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))"

и затем тянем ячейки A2:B2 вниз

наверняка есть и более простое решение

[Arigato]

Если использовать 3 знака из алфавита {a-z,0-9}, то это 36^3=46656 всевозможных комбинаций. То есть тут не минимум 3 знака, а 3 знаков вполне достаточно для 19574 значений.

[goshek]

Спасибо всем за внимание. Но не могли бы максимально подробно расписать как написать такой генератор (то есть его программный код, чтобы я мог воспроизвести это в визжуал студио)? Я по специальности логист, но столкнулся с такой проблемой и решил, что забивать 19574 значения в ручную в 21 веке глупо) Прошу прощения за свою безграмотность в мире программирования.

[rrrFer]

goshek
Мне кажется, тебе выше код уже написали и студия не нужна. Даже написали куда что вставить.

Если тебе именно в студии нужно - то укажи на каком языке (если имеет значение) и что должно быть в результате - файл экселя или 19754 значения на экране ("Возможно ли при помощи какого либо программнго языка сгенерировать 19574 значений?").

[goshek]

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

goshek
Мне кажется, тебе выше код уже написали и студия не нужна. Даже написали куда что вставить.

Если тебе именно в студии нужно - то укажи на каком языке (если имеет значение) и что должно быть в результате - файл экселя или 19754 значения на экране ("Возможно ли при помощи какого либо программнго языка сгенерировать 19574 значений?").

язык не имеет значения. 19754 значений,чтобы я мог тупо их вставить в свой файл

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

возможно, и в excel возможно
к примеру
A1 = "abcd123456"
A2 = "10000"
B2 = "=СЦЕПИТЬ(ПСТР($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))"

и затем тянем ячейки A2:B2 вниз

наверняка есть и более простое решение

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

[Serge_Bliznykov]

ну, если так сильно надо, сгенерите самостоятельно вот этой программой:
Project7_exe.rar


p.s. исходник (Delphi) такой:
Project7_source.rar

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.