String-to-string konvertering

4 posts in thread

• Johan Olofsson <5809> · Text 7720 · w8 · inlagg

  1987-11-08 12:59

  Ärende: String-to-string konvertering

  Jag skulle behöva en snabb och flexibel konverteringsfunktion, och till detta en (mycket) användarvänlig programsnutt för redigering av konver- teringstabellen. (Den behöver vara användarvänlig därför att man inte gör ändringar i tabellen särdeles ofta, så man hinner säkert glömma hur man gör mellan gångerna.) Nu är frågan: Finns det något i den här vägen i Monitorns programbank? Är det någon som vet något? Vänliga hälsningar /johan
  • Lars Gjörling <6825> · Text 7725 · w8 · kommentar

    1987-11-09 17:47

    Ärende: String-to-string konvertering

    Vad menar du med konverteringsfunktion? Skall vissa asciikoder kon- verteras till andra? Eller enstaka koder till ord? Direkt vid in- slag på tangentbordet (i så fall: KEY.BAC!). Basic eller maskin- språk? Du skall använda en konverteringstabell, och därför antar jag att du skall ha en tabell, enligt vilken vissa asciikoder skall bytas mot andra. Förslag i basic: 500 DEF FNSkapakonvtab LOCAL I 510 DIM Konvtab¤=256 : Konvtab¤="" 520 WHILE I<256 : Konvtab¤=Konvtab¤+CHR¤(I) : I=I+1 : WEND 530 RETURN 0 540 FNEND 600 DEF FNUpdatekonvtab LOCAL I,J 610 WHILE -1 620 ON ERROR GOTO 700 630 ; : ; "Avbryt med godtycklig pf-tangent!" 640 INPUT "Ange asciikod, som skall konverteras: "I 650 IF I<0 OR I>255 ; : ; "Felaktigt asciivärde!" : GOTO 640 660 INPUT "Till vilket asciivärde skall det konverteras? "J 670 IF I<0 OR I>255 ; : ; "Felaktigt asciivärde!" : GOTO 660 680 MID¤(Konvtab¤,I+1,1)=CHR¤(J) 690 WEND 700 IF ERRCODE=53 RETURN 0 ELSE ; "Felaktigt input!" : GOTO 610 710 FNEND 800 DEF FNKonvert¤(In¤) LOCAL Ut¤=160,I,J 810 Ut¤=In¤ 815 WHILE I<LEN(In¤) 820 I=I+1 : J=ASCII(MID¤(In¤,I,1)) 830 MID¤(Ut¤,I,1)=MID¤(Konvtab¤,J+1,1) 840 WEND 850 RETURN Ut¤ 860 FNEND Mvh Lars
    • Johan Olofsson <5809> · Text 7726 · w8 · kommentar

      1987-11-11 02:32

      Ärende: String-to-string konvertering

      Kort sagt: Jag har en text. Denna text innehåller vissa teckensekvenser (som är minst ett tecken långa) vilka ska bytas ut mot andra teckensekvenser, vars längd inte är definierad i konverteringstabellen. Generalitet behövs. Det behöver inte vara något samband mellan de olika teckensekvensernas längder. Nå vad ska man då ha något sånt här till ??? T.ex. om man vill göra en rutin som byter namn på variabler i ett BAS-lagra basic-program.
      • Stefan Gartz <2600> · Text 7727 · w8 · kommentar

        1987-11-11 08:36

        Ärende: String-to-string konvertering

        Jag har sänt in ett program som gör byte på texter som jag använder för att ändra variabler etc. i program. Du kan kanske använda hela eller delar av det för lösning av ditt problem Programmet heter TEXTBYT.BAS, du kan lätt finna det med FIND,D TEXTBYT Mvh Sgz