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
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