ABC Tools

browser utilities

Swedish computers preservation workspace — disk convert, decode, and archive browse

Retro Preservation Workspace

Monitorn

Browse archived Monitorn möten and the ABC80 mailing list, with full-text and text-number search.

← Back to ABC Tools

Meetings · ABC800 · Thread

Byte av tecken i en sträng.

5 posts in thread

Hans Johansson <1678> · Text 1299 · w6 · inlagg

1985-09-01 10:37

Ärende: Byte av tecken i en sträng.

Hej! Jag har ett litet programmeringsproblem. Jag är på jakt efter en prograam- snutt som byter alla tecken av en viss sort, t.ex åäöÅÄÖ mot t.ex _. Jag kör normalt aldrig basic och har därför lite för trånga tankebanor. Detta problem går säkert att lösa på något enkelt sätt. Glömde säga att tecknen ingår i en sträng. (Ut-data från BAS800) Tackar på förhand för hjälpen. /Hasse...
- Hans Johansson <1678> · Text 1300 · w6 · kommentar
  
  1985-09-01 10:38
  
  Ärende: Byte av tecken i en sträng.
  
  Glömde också säga att maskinen är ABC806.
  - Karl Lindström <837> · Text 1437 · w6 · kommentar
    
    1985-09-17 18:55
    
    Ärende: Byte av tecken i en sträng.
    
    Try this: 5 DEF FNKonvertera¤(In¤) LOCAL Pos,Sträng¤=160 6 Sträng¤=In¤ ! In-parametern går ej att ändra så mycket 10 Från¤="Å" ! Detta tecken skall bytas 20 Till¤="_" ! till detta tecken 30 Sträng¤="HEJ VAD DET GÅR!" ! Sträng som skall göras om 40 Pos=INSTR(1,Sträng¤,Från¤) ! Pos = 0 om inget 'Från¤' hittat 50 WHILE Pos 60 Sträng¤=LEFT¤(Sträng¤,Pos-1)+TilL¤+RIGHT¤(Sträng¤,Pos+1) 70 WEND 80 RETURN Sträng¤ 90 FNEND
    - Benny Löfgren SYSOP <2615> · Text 1438 · w6 · kommentar
      
      1985-09-17 19:46
      
      Ärende: Byte av tecken i en sträng.
      
      Add this: 65 Pos=INSTR(1,Sträng¤,Från¤) ! Se kommentar rad 40
      - Peter Öhlén <4659> · Text 1447 · w6 · kommentar
        
        1985-09-18 16:45
        
        Ärende: Byte av tecken i en sträng.
        
        Går det inte att skriva: 60 MID¤(Sträng¤,Pos,1)=Till¤ istället för en massa LEFT¤,RIGHT¤?? Mr Qwerty