Enheter ?

3 posts in thread

• Kenneth Borg <1738> · Text 5776 · w8 · inlagg

  1986-12-10 14:17

  Ärende: Enheter ?

  Vad heter det program som kunde plocka ut enheter även ur LIST-skyddade program. T.ex. om det står CHAIN'MF0:NAMN' någonstans och man vill ändra detta till ex. USR: Mvh PAJ
  • Curt Rehnborg <1121> · Text 5783 · w8 · kommentar

    1986-12-11 16:53

    Ärende: Enheter ?

    Vet inte om det finns något sådant program i banken, har emellertid gjort detta jobb etta ntal gånger, då det tydligen är vanligt problem att det ser ut på det viset. Någorlunda snygg programmering, då gör man inte så
  • Lars Gjörling <6825> · Text 5787 · w8 · kommentar

    1986-12-11 20:21

    Ärende: Enheter ?

    Varför inte försöka med något i den här stilen: 10 INTEGER : EXTEND : ; CHR¤(12) 20 ON ERROR GOTO 110 30 OPEN "DUMTPROG.BAC" AS FILE 1 40 Old¤="MF0:NAMN" : New¤="USR:NAMN" : L=LEN(Old¤) : P.=0. 50 WHILE -1 60 POSIT #1,P. : ; CUR(10,40) P. " " 70 GET #1,A¤ COUNT L : IF A¤<>Old¤ GOTO 90 80 POSIT #1,P. : PUT #1,New¤ 90 P.=P.+1. 100 WEND 110 IF ERRCODE=34 OR ERRCODE=38 GOTO 130 120 ; : ; "Errcode =" ERRCODE 130 END Jag har inte prövat, då jag inte har något sådant dumt program, men jag tycker att det borde funka. Prova på en kopia av ditt program för säkerhets skull. Mvh Lars Gjörling <6825>