Seite 1 von 1

Textdatei in Großbuchtaben wandeln

Verfasst: 13.09.2019 13:14
von funkheld
Hallo, guten Tag.
Wie kann man bitte eine Textdatei die eingeladen wurde in Großbuchstaben umwandeln.

Danke.
Gruss

Re: Textdatei in Großbuchtaben wandeln

Verfasst: 13.09.2019 13:23
von Kiffi
funkheld hat geschrieben:Wie kann man bitte eine Textdatei die eingeladen wurde in Großbuchstaben umwandeln.
UCase()

Re: Textdatei in Großbuchtaben wandeln

Verfasst: 13.09.2019 13:43
von #NULL

Code: Alles auswählen

If ReadFile(0, #PB_Compiler_File)
  bom = ReadStringFormat(0)
  Debug UCase(ReadString(0, bom | #PB_File_IgnoreEOL))
  CloseFile(0)
EndIf

Re: Textdatei in Großbuchtaben wandeln

Verfasst: 13.09.2019 14:07
von Nino
#NULL hat geschrieben:

Code: Alles auswählen

If ReadFile(0, #PB_Compiler_File)
Abgesehen davon, dass ReadFile() auch einen Dateinamen als Parameter benötigt:
Was soll denn #PB_Compiler_File dort bedeuten?
Das ist als Flag für ReadFile() nicht dokumentiert.

Re: Textdatei in Großbuchtaben wandeln

Verfasst: 13.09.2019 14:17
von NicTheQuick
@Nino:
Einfach ausprobieren. Das ist der Dateiname der zu kompilierenden Datei und dient nur als Beispiel, damit man den Code ohne Umwege ausführen kann.

Re: Textdatei in Großbuchtaben wandeln

Verfasst: 13.09.2019 14:27
von Nino
Ach so ... Danke für die Info!

Re: Textdatei in Großbuchtaben wandeln

Verfasst: 13.09.2019 14:53
von mk-soft
Kann auch für Information von LogFiles verwenden...

Mal grob:

Code: Alles auswählen

DeclareModule Common
  Macro WriteLog(Text, _F_ = #PB_Compiler_Filename, _M_ = #PB_Compiler_Module, _P_ = #PB_Compiler_Procedure, _L_ =#PB_Compiler_Line)
    _WriteLog(Text, _F_, _M_, _P_, _L_)
  EndMacro
  
  Declare _WriteLog(Text.s, PB_Compiler_Filename.s, PB_Compiler_Module.s, PB_Compiler_Procedure.s, PB_Compiler_Line)
EndDeclareModule

Module Common
  Procedure _WriteLog(Text.s, PB_Compiler_Filename.s, PB_Compiler_Module.s, PB_Compiler_Procedure.s, PB_Compiler_Line)
    Protected r1.s
    r1 = "|F:" + PB_Compiler_Filename + "|M:" + PB_Compiler_Module + "|P:" +  PB_Compiler_Procedure + "|L:" +  PB_Compiler_Line + "| " + Text
    Debug r1
  EndProcedure
EndModule

; ----

UseModule Common

WriteLog("Main")

Procedure foo()
  WriteLog("SubFoo")
EndProcedure

foo()

DeclareModule MyModule
  Declare foo()  
EndDeclareModule

Module MyModule
  
  UseModule Common
  
  Procedure foo()
    WriteLog("Module Foo")
  EndProcedure
EndModule

MyModule::foo()

Re: Textdatei in Großbuchtaben wandeln

Verfasst: 13.09.2019 16:08
von funkheld
Jetzt funktioniert dank eurer Vorschläge.

Gruss