Textdatei in Großbuchtaben wandeln
Textdatei in Großbuchtaben wandeln
Hallo, guten Tag.
Wie kann man bitte eine Textdatei die eingeladen wurde in Großbuchstaben umwandeln.
Danke.
Gruss
Wie kann man bitte eine Textdatei die eingeladen wurde in Großbuchstaben umwandeln.
Danke.
Gruss
Re: Textdatei in Großbuchtaben wandeln
UCase()funkheld hat geschrieben:Wie kann man bitte eine Textdatei die eingeladen wurde in Großbuchstaben umwandeln.
Hygge
Re: Textdatei in Großbuchtaben wandeln
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
Abgesehen davon, dass ReadFile() auch einen Dateinamen als Parameter benötigt:#NULL hat geschrieben:Code: Alles auswählen
If ReadFile(0, #PB_Compiler_File)
Was soll denn #PB_Compiler_File dort bedeuten?
Das ist als Flag für ReadFile() nicht dokumentiert.
- NicTheQuick
- Ein Admin
- Beiträge: 8679
- Registriert: 29.08.2004 20:20
- Computerausstattung: Ryzen 7 5800X, 32 GB DDR4-3200
Ubuntu 22.04.3 LTS
GeForce RTX 3080 Ti - Wohnort: Saarbrücken
- Kontaktdaten:
Re: Textdatei in Großbuchtaben wandeln
@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.
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
Kann auch für Information von LogFiles verwenden...
Mal grob:
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()
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Re: Textdatei in Großbuchtaben wandeln
Jetzt funktioniert dank eurer Vorschläge.
Gruss
Gruss