Textdatei in Großbuchtaben wandeln

Für allgemeine Fragen zur Programmierung mit PureBasic.
funkheld
Beiträge: 636
Registriert: 31.12.2009 11:58

Textdatei in Großbuchtaben wandeln

Beitrag von funkheld »

Hallo, guten Tag.
Wie kann man bitte eine Textdatei die eingeladen wurde in Großbuchstaben umwandeln.

Danke.
Gruss
Benutzeravatar
Kiffi
Beiträge: 10620
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Textdatei in Großbuchtaben wandeln

Beitrag von Kiffi »

funkheld hat geschrieben:Wie kann man bitte eine Textdatei die eingeladen wurde in Großbuchstaben umwandeln.
UCase()
Hygge
Benutzeravatar
#NULL
Beiträge: 2235
Registriert: 20.04.2006 09:50

Re: Textdatei in Großbuchtaben wandeln

Beitrag 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
my pb stuff..
Bild..jedenfalls war das mal so.
Nino
Beiträge: 1300
Registriert: 13.05.2010 09:26
Wohnort: Berlin

Re: Textdatei in Großbuchtaben wandeln

Beitrag 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.
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8675
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

Beitrag 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.
Bild
Nino
Beiträge: 1300
Registriert: 13.05.2010 09:26
Wohnort: Berlin

Re: Textdatei in Großbuchtaben wandeln

Beitrag von Nino »

Ach so ... Danke für die Info!
Benutzeravatar
mk-soft
Beiträge: 3695
Registriert: 24.11.2004 13:12
Wohnort: Germany

Re: Textdatei in Großbuchtaben wandeln

Beitrag 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()
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
funkheld
Beiträge: 636
Registriert: 31.12.2009 11:58

Re: Textdatei in Großbuchtaben wandeln

Beitrag von funkheld »

Jetzt funktioniert dank eurer Vorschläge.

Gruss
Antworten