lowercase to Uppercase

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von chima300, 16. März 2008 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 16. März 2008
    Hallo zusammen,

    kann mir vielleicht jemand sagen, wie Ich in VBScript eine Datei einzulesen und den Inhalt (Zeichen) von Kleinbuchstaben in Großbuchstaben umzuwandeln bzw. zu ersetzen?
    Kann mir da vielleicht jemand helfen???

    Also VBScript muss es nicht unbedingt sein aber besser wäre es.
     

  2. Anzeige
    Heute: Deals & Sale mit stark reduzierten Angeboten finden.
  3. #2 16. März 2008
    AW: lowercase to Uppercase

    Da gibt es die Methode UCase dafür
    Link
     
  4. #3 17. März 2008
    AW: lowercase to Uppercase

    Die Methode habe Ich schon des öffteren gefunden, aber was mir unklar ist ist wie man dies dan umsetzt.
    Weil ich kenne mich in VBScript nicht so sehr aus.
     
  5. #4 17. März 2008
    AW: lowercase to Uppercase

    du hast ne variable a mit dem Inhalt "Dies ist der eingelesene Text aus der Datei"

    und dann machst du:

    Ucase(a)

    oder

    a = Ucase("Dies ist der eingelesene Text aus der Datei")

    und dann hat deine variable den Inhalt:

    "DIES IST DER EINGELESENE INHALT AUS DER DATEI"

    Knusperkeks

    PS: Auf der verlinkten seite ist auch nen bsp.... (UCase("Sommer") ' liefert SOMMER)
     
  6. #5 17. März 2008
    AW: lowercase to Uppercase

    Okay das verstehe Ich ja, aber kann man mir vielleicht mal eine Sample geben, wo man aus einer Datei die String umwandelt?
    Das wäre cool
     
  7. #6 17. März 2008
    AW: lowercase to Uppercase

    Code:
    
    Set txtStream=fso.OpenTextFile('c:\meinFile.txt')
    Do While Not (txtStream.atEndofstream)
    Text=Text & txtStream.ReadLine & vbCrlf
    Loop
    
    Text = Ucase(Text)
    
    

    meinst du sowas?
     
  8. #7 17. März 2008
    AW: lowercase to Uppercase

    Danke, aber da Ich ein VBScript Dummy bin, kannst du mir vielleicht mal das als komplette script geben?
     
  9. #8 17. März 2008
  10. #9 17. März 2008
    AW: lowercase to Uppercase





    Code:
    Dim Text, fso, txtStream
    set fso=CreateObject("Scripting.FileSystemObject")
    'read file
    Set txtStream=fso.OpenTextFile('c:\meinFile.txt')
    Do Until txtStream.AtEndOfStream
    Text=Text & txtStream.ReadLine & vbCrlf
    Loop
    
    Text = Ucase(Text)
    
    'write file
    Set txtStream=fso.OpenTextFile('c:\meinFile.txt',2,True)
    txtStream.WriteLine(Text)
    
     
  11. #10 17. März 2008
    Zuletzt von einem Moderator bearbeitet: 14. April 2017
    AW: lowercase to Uppercase


    danke für den Code, aber wenn Ich den ausführe bekomme Ich diese Fehlermeldung:
    No File | xup.in
    das Zeigt mir auf den Pfad zum Text-File oO
     
  12. #11 17. März 2008
    AW: lowercase to Uppercase

    Ist ein synaxfehler drin...
    Ich kann kein VB aber bei c++ muss man den path zum beispiel so angeben c:\\meinFile.txt also 2 \
     
  13. #12 17. März 2008
    AW: lowercase to Uppercase

    Ah so. So wie in Java. Dann muss ICh das gleich mal probieren.

    EDIT\\ habe den fehler gefunden, man muss das so machen

    Code:
    Dim Text, fso, txtStream
    set fso=CreateObject("Scripting.FileSystemObject")
    'read file
    Set txtStream=fso.OpenTextFile("C:\\confCons.txt")
    Do Until txtStream.AtEndOfStream
    Text=Text & txtStream.ReadLine & vbCrlf
    Loop
    
    Text = Lcase(Text)
    
    'write file
    Set txtStream=fso.OpenTextFile("C:\\confCons.txt",2,True)
    txtStream.WriteLine(Text)
    man muss den Pfad mit "" bekanntgeben und nicht mit '
    jetzt klappts
     

  14. Videos zum Thema