Bonjour burger,
Je suis désolé pour mon shakespeare mais c'est "degueugleu" qui fournit.
Je n'ai posé qu'une seule question sans ambiguïté pourtant et je constate que personne n'a pu m'indiquer un indice de chemin à suivre. Je dois cependant indiquer
que la fenêtre QB64 ne me dérange pas pour compiler mais il n'est pas question que je me serve de ceci pour travailler.
En effet, j'utilise seulement du batch hors ligne pour du scientifique (simulations qui durent plusieurs jours) sans graphisme et il est évident qu'un tel fonctionnement est incompatible avec mes desiderata.
Il y a sans doute une solution code ou batch mais je ne la connais pas et c'était l'objet de ma question, tout simplement.
Je vous donne un échantillon de mon code, qui je dois le dire fonctionne très bien sous QB64 (je ne vous parle pas de l'adaptation !). Après je pourrais évoquer les problèmes de la fenêtre si vous ne voyez pas d'anomalies.
Vraiment confus de prendre votre temps mais je pense que cela peut être profitable à toute la communauté QB64.
Merci pour tout.
barmet
Hello burger,
I'm sorry but this is my shakespeare "degueugleu" that provides.
I have asked one question unambiguously and yet I find that no one could give me a path to follow index. I must, however, indicate
QB64 that the window does not bother me to compile but it does not matter that me to use this to work.
In fact, I only use the batch offline for Scientific (simulations lasting several days) without graphics and it is clear that such behavior is incompatible with my wishes.
There is probably a code or batch solution but I do not know and that was my question, simply.
I give you a sample of my code, I must say that works fine in QB64 (I am not talking about adaptation!). After I could discuss problems of the window if you do not see abnormalities.
Really confused to take your time but I think it can be beneficial to the entire community QB64.
Thanks for all.
Code: Select all
' $title:'CUTV - Partage F. NKV en 2 Fic.'
' $include:'f:\bas\¿defall.bas'
print "CUTV ";command$;fntim$
call sack(command$,nb.ack)
if nb.ack=0_
then print "Arg. absent" : end
l.fin=l.ack(1) : print l.fin
p=val(l.ack(2)) : print p
l.fout=l.ack(3) : print l.fout
l.fout1=l.ack(4)
if not fnexist(l.fin)_
then print " Absent F. In" : goto ZEND
close 2 : open "o",2,l.fout
close 1 : open "i",1,l.fin
if l.fout1 <> ""_
then close 4 : open "o",4,l.fout1 : fl.2=-1
while not eof(1)
line input #1,a$ : call sack(a$,nb.ack)
if fl.2_
then print #2,left$(a$,p-1) :_
print #4,mid$(a$,p) : exit while[code]
print #2,mid$(a$,p)
wend
ZEND:
print "CUTV ";command$;fntim$
end
' $include:'f:\bas\¿deffn.bas'
' $include:'f:\bas\sack.bas'
[/code]
Code: Select all
¿DEFALL.BAS
' $include:'f:\bas\¿def.bas'
$CONSOLE
_DEST _CONSOLE
clear ,,1000
dim shared ct!(1 to 500)
dim shared id(1 to 500),ig(1 to 500),ir(1 to 500)
dim shared l(1 to 20),l.ack(1 to 501)
dim shared n0.sort(1 to 500)
dim shared sort(1 to 500),sort!(1 to 500),sort#(1 to 500)
l.sp.3=space$(3)
l.sp.6=space$(6)
Code: Select all
¿DEF.BAS
option base 0
defint c-k,m-z
defstr l
Code: Select all
¿DEFFN.BAS
function fnexist(l.fic)
' KILL sur DIR simple
close 99 : open "r",99,l.fic,1
field 99,1 as l99
if lof(99) < 4_
then close 99 : kill l.fic : fnexist=0 : exit function
close 99 : fnexist=-1
end function
Code: Select all
' $title:'SACK - Ack Cmd'
sub sack(a$,nb.ack) static
l.tab=" "
nb.ack=0 : n.l=len(a$)
if n.l=0 _
then exit sub
w.a$=space$(n.l)
lset w.a$=a$
nb.ack=1 : l.ack(1)=""
for i=1 to n.l
b$=mid$(w.a$,i,1)
if b$=" " or b$=l.tab_
goto S.ACK
l.ack(nb.ack)=l.ack(nb.ack)+b$
goto S.ACK.1
S.ACK:
if l.ack(nb.ack) <> ""_
then nb.ack=nb.ack+1 : l.ack(nb.ack)=""
S.ACK.1:
next i
if l.ack(nb.ack)=""_
then nb.ack=nb.ack-1
end sub