Discussion :

[DelphiBeginner]

Bonsoir, je post ici (et j'espère que c'est à peu près dans la bonne section)

j'ai 2 paramètres à entrer, et je voudrais que le premier paramètre soit obligatoirement le chemin direct vers l'application delphi de mon programme (ici : 'data\) et le second qu'il soit obligatoirement un string suivi de '.db'
En fait, pour la première condition j'ai 'bidouillé' un truc pour que ça fonctionne, mais le but n'est pas là et la bidouille ce n'est pas ce que je veux que l'on retienne de mon programme, pour la deuxieme condition après recherches je n'ai vraiment pas d'idées, me faudrait une fonction qui détecte si le paramètre est une string, je ne sais pas trop.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
begin
 
  BuildDataBase(ParamStr(1),ParamStr(2));
  If(ParamStr(1)='data\') and (ParamStr(2):=string) then
  begin
    WriteLn('Parameter ='+IntToStr(i)+'='+ParamStr(i));
    WriteLn('Database build succeed');
  end
  else
  begin
    for i:=0 to Paramcount do
      WriteLn('Only one or both values are false');
      WriteLn('Please check the right syntax : DBTextToSqliteTable "InputFileFolder\" "DatabaseName.db"');
  end;
  Readln;
end.

Merci d'avance si un courageux a quelques minutes à me consacrer pour chercher ça x)

[Andnotor]

ParamStr(0), ParamStr(1)... ParamStr(n) seront forcement des chaînes.
Le mieux est que tu commences par te familiariser un peu avec Delphi. Les tutoriels sont ici.

[DelphiBeginner]

ParamStr(0), ParamStr(1)... ParamStr(n) seront forcement des chaînes.
Le mieux est que tu commences par te familiariser un peu avec Delphi. Les tutoriels sont ici.

Le problème est que je fais ça pour un boulot et que je dois avancer chaque jour, donc pas le temps de prendre 3 jours pour me familiariser j'apprend sur le tas, donc en fait, pour le 2ieme paramètre, il faudrait juste que je m'assure qu'il finisse bien par .db , as tu une idée tout de même ou pas dutout ? :/

[Andnotor]

Et bien bon courage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if SameText(ExtractFileExt(ParamStr(2)), '.db') then...

[tourlourou]

if Pos(S, '.db') = Length(S) -2 devrait le faire

[DelphiBeginner]

Et bien bon courage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if SameText(ExtractFileExt(ParamStr(2)), '.db') then...

Oui, c'est clairement compliqué, après c'est un stage je suis là pour apprendre, mais je compte bien revenir dans cette entreprise, donc je doit avancer et apprendre en même temps x)


Merci pour le deuxième paramètre, que pourrai-je faire pour le premier ?
Sachant que l'utilisateur est censé utiliser cette commande :

(Nom de mon programme) "Dossier contenant les datas" "Nom de la database.db"
Je dois donc interdire à l'utilisateur d'entre autre chose qu'un chemin diffèrent de celui du fichier

Je ne voudrai pas que vous ayez l'impression que je vous demande de résoudre mon exercice lol(car oui c'est un exercice) mais là pour le coup je suis bloqué dessus depuis 18h ou j'ai commencé, j'ai pas pue avancer et je suis censé arriver demain matin et avoir résolu ça.

[DelphiBeginner]

if Pos(S, '.db') = Length(S) -2 devrait le faire

Merci

[DelphiBeginner]

J'ai Finalement trouvé à l'aide d'Epitouille, sur le chat
Je suis un peu idiot sur les bords, il me suffisait de faire un : IF DirectoryExists(paramstr(1))
Et de catcher l'exception ^^

Merci pour votre aide !