XProfan

Français

Bamboo

mon Programme speichert Geburtstage et deux Termineinträge.
eh bien hätte je volontiers, dass cela Programme automatisch startet, si un datumsgleicher Eintrag vorliegt.
Geschrieben dans XProfan
merci im Voraus pour Antwort et Aider

Manche Menschen werden deshalb schlecht, weil es ihnen zu gut geht.

24.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

Bamboo

Jörg
Votre Code, avec "=" erweitert, erzeugt une Fehlermeldung.
"Zuwenig paramètre..."
mon Code écrit richtig dans qui Registry (CCleaner sous "Autostart" nachgesehen), mais ensuite hakt es. qui Start des réel Programmes bricht avec qui Fehlermeldung 104 ab ???

XProfan X2
Manche Menschen werden deshalb schlecht, weil es ihnen zu gut geht.

24.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Ah - ok. là hab je mich vertan.

comment oui c'est ca soll car qui Startaufruf votre Programmes air? cela allez aus deinem Codeauszug pas hervor et den Informationen peux on bisher seulement deviner.

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

24.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Bamboo

Jötg
à sich entier simple et jusqu'à zum Absturz klappt cela oui aussi.
Code-Kurzform:
Assign #1,fichier$
RESET #1
WHILENOT EOF(#1)
INPUT #1,txt$
IF LEFT$(date$(0),5) = txt$
RUN programm$
ENDIF
ENDWHILE
CLOSE #1
FIN
Im Hauptprogramm wird ensuite une Gridbox avec den vorhanenen Tagesdaten ouvert.
cela funktioniert aussi, si je cela Programme avec Double-cliquez sur starte.
chez
RUN programm$
Absturz

Hab avec beiden Alternativen GETDIR$("@") ou bien $PROGDIR versucht.
toujours cela gleiche Ergebnis - faute 104
mon le doute ist qui Listview.dll

Manche Menschen werden deshalb schlecht, weil es ihnen zu gut geht.

24.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
W.

"Dateikennung fehlt"
ou bien
"Datei pas zum Lesen geöffnet"

GETDIR$("@") -- sollte dans neuen Betriebssystemen pas genutzt volonté

et cela quoi Du là geschrieben la hâte, wird cela car im Programme- verzeichnis gespeichert (sur cela on peut-être. aucun Rechte hat)?

ou bien im Datenverzeichnis (sous $AppDataDir)

Alle Sprachen
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

24.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Bamboo

Michael
qui Declaration fichier$ ist im Hauptprogramm et appelez qui CSV-Dossier avec den Entrées sur.
vous ist im Unterverzeichnis INS_DATEN vorhanden et alle Pfade sommes richtig angegeben.
c'est mir un Rätsel, pourquoi cela eigentliche Programme avec Double-cliquez sur startet, mais avec RUN programm$ pas.

XProfan X2
Manche Menschen werden deshalb schlecht, weil es ihnen zu gut geht.

24.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

Michael
W.

nous savons weder quoi dans "programm$" encore quoi dans "control$" oui c'est ca steht. c'est pourquoi peut wir ici seulement Rätsel deviner.

run - appelez windowsprogramme sur

plus gibts encore

%ExitCode, GetExitCode, Shell, ShellExec, WinExec, WinExecWait

sous X2 gibts $AppDataDir encore pas, là peux ca aider

Kompilieren Marque Séparation

cls
Imprimer "AppData"
Imprimer GetEnv$("APPDATA")
Imprimer "\nLocalAppData"
Imprimer GetEnv$("LOCALAPPDATA")
WaitKey
end

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

24.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

avec run peux naturellement aussi un Profanprogramm auggerufen volonté. Du wirst mais déjà genauere Angaben faire doit, comment Michael déjà geschrieben hat.
je seh aussi dans deinem Code keinen Aufruf qui Listview.dll. alors également seulement Kaffeesatzleserei de unserer page.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

24.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Bamboo

Jörg Sellmeyer (24.07.2016)

c'est richtig. avec RUN appelle je oui cela eigentliche Programme sur et là wird oui ensuite aussi qui Listview.dll declariert.
je peux oui mal ca. 9.000 Zeilen Code ici posten.
Muss alors plus "wurschteln" - denke la fois, dass je irgendwann den faute trouvé habe. Werde mich ensuite annoncer.
...jusqu'à denne

XProfan X2
Manche Menschen werden deshalb schlecht, weil es ihnen zu gut geht.

25.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RICOSCH

pourrait cela cela problem son ??

kanns maintenant nich sur qui schnelle vérifier

WHILENOT EOF(#1)
INPUT #1,txt$
IF LEFT$(date$(0),5) = txt$
RUN programm$
ENDIF
ENDWHILE
CLOSE #1
FIN

avec run finis du oui cela eigene Programme ,
un winexec avec anschließendem end dans deinem Programme wäre wohl besser.
ou bien tu finis seulement qui schleife z,b

check% = 0
WHILENOT EOF(#1)
INPUT #1,txt$
IF LEFT$(date$(0),5) = txt$
((RUN programm$))
check% = 1
ENDIF
ENDWHILE
CLOSE #1
cas check% = 1:RUN programm$
FIN

glaube quelque chose comme aussi déjà gehabt trop avons, cela un RUN aus qui Boucle probleme pouvoir.

la fois s'il te plaît testen et gegebenfalls mich berichtigen si je daneben liege.

XProfan X3
I LOVE TOOLS

25.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Bamboo

merci pour den Tipp
Werde mich aujourd'hui mittag avec cela beschäftigen et ensuite Bescheid donner.
Unmöglich ist cela pas.
Wirklich interessanter Vorschlag !

XProfan X2
Manche Menschen werden deshalb schlecht, weil es ihnen zu gut geht.

25.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Bamboo

RICOSCH
Dein Tipp hat déjà la fois geholfen.
maintenant klappt qui Start. on muss alors seulement WHILE durchlaufen laisser et si ensuite Check% sur 1 steht, funktioniert qui l'affaire !

mais comment cela so ist, juste une neue Frage à qui Experten:
mon Tool arbeitet avec einer XProfan-Gridbox. qui ist normal sur qui 1. Spalte sortiert. mon Grid hat 31 Spalten et qui devoir alle sortierbar son.
cela allez aussi sur SortList "|",x%,1 - malheureusement doit pour Extra-Buttons angelegt volonté. Im Moment habe je cela so comment im anhängenden Bild gelöst (es manquer encore un paire Buttons)
si mir maintenant quelqu'un veraten peux, comment je qui Spaltenköpfe trop Buttons remodeler et ensuite encore sur cet zugreifen peux, schließe Je l'- ou bien diejenige dans mon Abendgebet un.

...et non, je veux pas avec qui Listview.dll de Frank Abbing travailler.

insert_demo02.jpg	40 kB

Bezeichnung:	Beispiel

Kurzbeschreibung:	Vorläufige Ansicht

Hochgeladen:	26.07.2016

Downloadcounter:
		Download

XProfan X2
Manche Menschen werden deshalb schlecht, weil es ihnen zu gut geht.

26.07.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

dans qui plv_pcu devrait un Sortierbeispiel son: [...]

Kompilieren Marque Séparation

' Autor: Thomas R.
'
' HitSortsLV(lvHdl&)    Sortiert den le contenu eines Listviews
'                       lvHdl& = Handle des Listviews
 $U plv.pcu = plv.
' Funktion
Def ZufallsText(0) chr$(rnd(26)+65)+chr$(rnd(26)+65)+chr$(rnd(26)+65)
Def ZufallsZahl(0) chr$(rnd(10)+48)+chr$(rnd(10)+48)+chr$(rnd(10)+48)

Proc ZufallsZahlText

    Déclarer ZZ_Erg$,ZZ_ZWErg$

    WhileLoop 1,3,1

        Si (rnd(2 + 1) - 1)

            ZZ_ZWErg$ = chr$(rnd(26) + 65)
            '   Cas (ZZ_ZWErg$ = "0"): ZZ_ZWErg$ = Chr$(160)
            ZZ_Erg$ = (ZZ_Erg$ + ZZ_ZWErg$)

        D'autre

            ZZ_Erg$ = (ZZ_Erg$ + chr$(rnd(10) + 48))

        EndIf

    Endwhile

    Retour ZZ_Erg$

ENDPROC

Déclarer lv&
Cls
lv& = plv.CreateListView(%hwnd,»,10,10,500,350,RGB(0,0,0),RGB(255,255,255),RGB(255,255,255),0,0,0,0)
plv.SetHeader(lv&,3,"150|150|150","Spalte 1|Spalte 2|Spalte 3")

WhileLoop 0,100

    plv.SetRow(lv&, &loop,(ZufallsZahlText() + "|" + ZufallsZahlText() + "|" + ZufallsZahlText()),-1,0)

Endwhile

'WhileLoop 0,200,2
' plv.SetRow(lv&,&loop,(ZufallsZahl() + "|" + ZufallsZahl() + "|" + ZufallsZahl()),-1,0)
' plv.SetRow(lv&,(&loop + 1),(ZufallsText() + "|" + ZufallsText() + "|" + ZufallsText()),-1,0)
'Endwhile
'WaitInput
'plv.SetHeader(LV&,2,"200|70","Datei|Größe","0|1")
'imprimer "OK"
'plv.ReSetItem(LV&,2,"DatNamX.exe",-1,2)

WhileNot %clé = 2

    WaitInput
    plv.HitSortsLV(lv&)

Endwhile

Fin