Caps.

5 posts in thread

• Magnus Frostlid <7755> · Text 9550 · w8 · inlagg

  1990-06-06 12:37

  Ärende: Caps.

  Hur gör man ett lätt program som gör om allt man skriver in till STORA bokstäver? Man ska inte behöva ändra för varje gång, utan dom ska bli stora direkt när man skrivit in dom. Går detta? Mvh
  • Paul Pries <5322> · Text 9552 · w8 · kommentar

    1990-06-07 08:49

    Ärende: Caps.

    Läs av strängen tecken för tecken och gör AND med 255-32 på ASCII värdet för tecknet ifråga. Svårare än så är det inte... /Paul.
    • Kristoffer Eriksson <5357> · Text 9553 · w8 · kommentar

      1990-06-07 19:23

      Ärende: Caps.

      Eller bara kör programmet CAPSONLY som finns i programbanken.
      • Magnus Frostlid <7755> · Text 9554 · w8 · kommentar

        1990-06-09 18:37

        Ärende: Caps.

        Capsonly har jag, det är bara så att jag inte vill att man SKRIVER med versaler. Jag vill att allt bara slår om liksom. Jag förstod inte heller vad han menade i texten 9552. Mvh Magnus
        • Jan-Olof Svensson <6057> · Text 9555 · w8 · kommentar

          1990-06-10 00:48

          Ärende: Caps.

          Paul menade väl ungefär så här: 1160 DEF FNUpcase¤(Ch¤) 1170 IF Ch¤>="é" AND Ch¤<="ü" THEN RETURN CHR¤(ASCII(Ch¤) AND 223) 1180 RETURN Ch¤ 1190 FNEND 1200 ! 1210 DEF FNCaps¤(Txt¤) LOCAL Newtxt¤=160,Pos 1220 Newtxt¤="" : Pos=1 1230 WHILE Pos<=LEN(Txt¤) 1240 Newtxt¤=Newtxt¤+FNUpcase¤(MID¤(Txt¤,Pos,1)) 1250 Pos=Pos+1 1260 WEND 1270 RETURN Newtxt¤ 1280 FNEND Du kan anropa FNUpcase¤ för att omvandla ett tecken, och FNCaps¤ för att omvandla en sträng.