Kleinbuchstaben in Große umwandeln

Re: Kleinbuchstaben in Große umwandeln

dEUS@offline — Tue, 21 Oct 2008 08:49:06 GMT

unter C ist das glaub ich ein 10 Zeiler

Re(7): Kleinbuchstaben in Große umwandeln

dEUS@offline — Tue, 21 Oct 2008 08:47:53 GMT

wieso ist ein Programm, das Arbeitszeit erspart und im Endeffekt mehr Geld erspart als es kostet rausgeschmissenes Geld?
Bzw. Linux kanns und das gibts GRATIS!!

Re: Kleinbuchstaben in Große umwandeln

tha_haze — Mon, 20 Oct 2008 18:07:12 GMT

Ich weiß ja nicht ob du es automatisiert brauchst oder nur einmalig, aber folgende "manuelle" Lösung kann ich dir anbieten:

Mit Word öffnen (ja richtig gelesen!) alles markieren und solange Shift+F3 drücken bis es passt.

Re(4): Kleinbuchstaben in Große umwandeln

user86060 — Mon, 20 Oct 2008 17:48:43 GMT

bzw. cygwin

Re(7): Kleinbuchstaben in Große umwandeln

tilt — Mon, 20 Oct 2008 15:28:33 GMT

richtig ehm oder?

Re(6): Kleinbuchstaben in Große umwandeln

hariw — Mon, 20 Oct 2008 15:12:48 GMT

hi,

Oder eben eine brauchbare Programmiersprache.

für den fall, dass es dir nicht eh bekannt is - brauchst nicht glauben, dasst in vbs ein "dir /s" implementiert hast, da darfst dich schon selbst rekursiv durch dateisystem ackern

lg,
hariw

Re(5): Kleinbuchstaben in Große umwandeln

juwb — Mon, 20 Oct 2008 14:55:34 GMT

Notepad++ ist kostenlos... Open Source... falls eure Leitung da auch dagegen ist, Pech.

muss es doch im Windows auch einen CMD Befehl dafür geben

Unter Linux und anderen Unix-Derivaten hast du für jeden Furz einen Befehl bzw. ein Programm mit dem du das in der Kommandozeile erledigen kannst. In Windows gibt es sowas praktisch gar nicht. Da brauchst du selbst für triviale Dinge eine ganze Klicki-Bunti-Software. Oder eben eine brauchbare Programmiersprache.

Re(15): Kleinbuchstaben in Große umwandeln

hariw — Mon, 20 Oct 2008 14:37:51 GMT

hi,

keine ahnung, obs schon eine neuere version gibt - bissi einlesen und vor allem nachschlagen kannst in http://www.microsoft.com/downloads/details.aspx?FamilyID=01592c48-207d-4be1-8a76-1c4099d7bbb9&displaylang=en

lg,
hariw

Re(14): Kleinbuchstaben in Große umwandeln

tilt — Mon, 20 Oct 2008 14:34:15 GMT

Aber eins hats gebracht. Ich werde mir so einen VB Kurs zulegen. Ist ziemlich nützlich das ding.

lg
Michal

Re(13): Kleinbuchstaben in Große umwandeln

hariw — Mon, 20 Oct 2008 14:29:12 GMT

hi,

gern geschahs is mir selbst ein rätsel, wie´st mich so weit gebracht hast...

lg,
hariw

Re(12): Kleinbuchstaben in Große umwandeln

tilt — Mon, 20 Oct 2008 13:37:08 GMT

Ich sage dir DANKE SCHÖN.. Solche leute sollte es öffters geben.

THX noch mal

lg
Michal

Re(11): Kleinbuchstaben in Große umwandeln

hariw — Mon, 20 Oct 2008 13:33:42 GMT

hi,


Dim oFso, oFolder, oFiles, sFolder, File, sFile

sFolder = "C:\MC"

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sFolder)
Set oFiles = oFolder.Files

For each oFile In oFiles
  File = Split(oFile.Name, ".")
  If UCase(File(UBound(File))) = "SKI" Then
    Convert(oFile.Path)
'    Wscript.Echo oFile.path
  End If
Next

Sub Convert(sFile)
  Set txtStream=oFso.OpenTextFile(sFile)
  Do Until txtStream.AtEndOfStream
    Text=Text & txtStream.ReadLine & vbCrlf
  Loop
  txtStream.Close

  Text = Ucase(Text)

  sFile2 = Left(sFile, len(sFile)-4) & "2" & Right(sFile,4)
  Set txtStream=oFso.OpenTextFile(sFile2,2,True)
  txtStream.WriteLine(Text)
  txtstream.Close

  oFso.GetFile(sFile).Delete
  oFso.MoveFile sFile2, sFile
End Sub

Set txtstream = Nothing
Set oFso = Nothing

aber jetzt
hariw

Re(8): Kleinbuchstaben in Große umwandeln

tilt — Mon, 20 Oct 2008 13:30:49 GMT

Ja das ist wiederum einstellungssache. Ich sage immer wenns der Firma gut geht gehts mir auch gut. Ich kann dir nur Versichern das es eine der 2 Größten Baufirmen in Österreich ist.

lg

Re(7): Kleinbuchstaben in Große umwandeln

Arrris — Mon, 20 Oct 2008 13:29:04 GMT

*gg* Dir kanns im Grunde ja egal. Solang sie das finanzielle Mittel haben um dir am Ende des Monats etwas davon aufs Konto zu schieben, ist ja alles in Butter.

Da is ja auch ned weiter wichtig ob Moos für Software da ist oder "rausgeworfen" wird

Hauptsache der Rubel rollt.

Re(10): Kleinbuchstaben in Große umwandeln

tilt — Mon, 20 Oct 2008 13:25:32 GMT

Genau du bist spitze. Nur noch die kleinichkeit die ich oben im EDIT2 geschrieben habe, dass er die Datei nicht überschreibt sondern neue mit 2 dahinter erstellt.

lg
Michal

Re(9): Kleinbuchstaben in Große umwandeln

hariw — Mon, 20 Oct 2008 13:22:32 GMT

hi,


Dim oFso, oFolder, oFiles, sFolder, File, sFile

sFolder = "C:\MC"

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sFolder)
Set oFiles = oFolder.Files

For each oFile In oFiles
  File = Split(oFile.Name, ".")
  If UCase(File(UBound(File))) = "SKI" Then
    Convert(oFile.Path)
'    Wscript.Echo oFile.path
  End If
Next

Sub Convert(sFile)
  Set txtStream=oFso.OpenTextFile(sFile)
  Do Until txtStream.AtEndOfStream
    Text=Text & txtStream.ReadLine & vbCrlf
  Loop

  Text = Ucase(Text)

  Set txtStream=oFso.OpenTextFile(Left(sFile, len(sFile)-4) & "2" & Right(sFile,4),2,True)
  txtStream.WriteLine(Text)

  txtstream.Close
End Sub

Set txtstream = Nothing
Set oFso = Nothing

again

lg,
hariw

Re(6): Kleinbuchstaben in Große umwandeln

tilt — Mon, 20 Oct 2008 13:21:05 GMT

Ich habe die danach erst garnicht gefragt, weil wenn eine firma für jeden mist geld rausschmeissen würde dann kommt die firma nicht weit. Wie du unten sehen kannst gibt es auch andere möglichkeiten. Höflich fragen muss man können.

Re(5): Kleinbuchstaben in Große umwandeln

Arrris — Mon, 20 Oct 2008 13:15:51 GMT

Nette Leitung habt ihr da. Die paar Euro für die Software, die Zeit ersparen würde, nicht ausgeben, dafür aber vielleicht die (teureren?) Arbeitsstunden der Leute bezahlen, die dann mühsam alles per Hand ins "Großgeschriebene" umwandlen?

Re(8): Kleinbuchstaben in Große umwandeln

tilt — Mon, 20 Oct 2008 13:13:44 GMT

Re(8): Kleinbuchstaben in Große umwandeln

tilt — Mon, 20 Oct 2008 13:13:44 GMT

Re(8): Kleinbuchstaben in Große umwandeln

tilt — Mon, 20 Oct 2008 13:13:44 GMT

Es wird immer länger :0)

Es ist zwar keine Fehlermeldung gekommen aber es ist auch nichts geschehen. Weder hat er die Datei geändert noch eine neue Erstellt. Auch nicht wenn ich den .vbs in dem selben Ordner gespeichert habe.

lg
Michal

EDIT: Kannst du es vielleicht ausporbieren damit ich kein Mist erzähle. Einen MC order machen und dort eine Textdatei mit klein gross buchstaben reinpacken.

EDIT2: Geht jetzt doch. Die Dateien Heissen nicht *.ski sondern *.SKI

Und es funktioniert. Nur dass er die Datei nicht überschreibt sondern eine neue erstellt mit einer 2 dahinten. Beispiel: NO1234.SKI macht er NO12342.SKI

Re: Kleinbuchstaben in Große umwandeln

adhoc — Mon, 20 Oct 2008 13:04:28 GMT

wenn es "manuell" also mit editor auch OK ist (und gratis sein muss)

nimmst halt N++ (notepad++)

http://notepad-plus.sourceforge.net/de/site.htm

Re(7): Kleinbuchstaben in Große umwandeln

hariw — Mon, 20 Oct 2008 13:03:43 GMT

hi,

verscuh mal


Dim oFso, oFolder, oFiles, sFolder, File, sFile

sFolder = "C:\MC"

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sFolder)
Set oFiles = oFolder.Files

For each oFile In oFiles
  File = Split(oFile.Name, ".")
  If File(UBound(File)) = "ski" Then
    Convert(oFile.Path)
'    Wscript.Echo oFile.path
  End If
Next

Sub Convert(sFile)
  Set txtStream=oFso.OpenTextFile(sFile)
  Do Until txtStream.AtEndOfStream
    Text=Text & txtStream.ReadLine & vbCrlf
  Loop

  Text = Ucase(Text)

  Set txtStream=oFso.OpenTextFile(Left(sFile, len(sFile)-4) & "2" & Right(sFile,4),2,True)
  txtStream.WriteLine(Text)

  txtstream.Close
End Sub

Set txtstream = Nothing
Set oFso = Nothing

sollte _alle_ *.ski in "C:\MC" konvertieren...

als .vbs speichern und ausführen...

lg,
hariw

Re(6): Kleinbuchstaben in Große umwandeln

tilt — Mon, 20 Oct 2008 12:48:51 GMT

Es hört sich sehr hilfsberreit an, aber ich bin nicht ein mal ein newbe im vb. Alles was ich verstanden habe war deine Frage ob ich alle *.SKI im Verzeichnis ändern möchte. Es ist immer nur 1 Datei drin. Die Datei muss geändert werden. Ich habe dei geändertes Script überflogen und ich kann nirgendwo den Pfad C:\\MC\... finden. Ich nehme an das die Ifschleife dazu da ist damit er sich eine Datei selbst rausholt aber wo sucht er?

Könntest du es bitte für mich fertig schreiben.

Also die Datei heißt NO"zahl".SKI... Sie befindet sich lokal im C:\MC\ Ordner und die neue Datei soll wieder so heißen wie das original. So quasi umgeschrieben.

Bitte dann eine Idiotensichere Anleitung wie ich was wohin dragndrope

Ich danke dir

lg
Michal

Re(5): Kleinbuchstaben in Große umwandeln

hariw — Mon, 20 Oct 2008 12:36:59 GMT

hi,

sehr brav - ich mag fragende, die nicht alles vorgekaut haben wollen


Dim Text, fso, txtStream, sFile

If WScript.Arguments.Count 

du kannst so:
"drag&drop" des .ski files
im cmd: cscript D:file.vbs D:kleinbuchstaben.ski

oder willst alle *.ski in einem verzeichnis?

lg,
hariw



Re(5): Kleinbuchstaben in Große umwandeln
hariw — Mon, 20 Oct 2008 12:36:59 GMT
hi,

sehr brav - ich mag fragende, die nicht alles vorgekaut haben wollen 



Dim Text, fso, txtStream, sFile

If WScript.Arguments.Count < 1 Then
	MsgBox "Missing Argument - File"
	WScript.Quit
Else
	sFile = WScript.Arguments(0)
End If

set fso=CreateObject("Scripting.FileSystemObject")
'read file
Set txtStream=fso.OpenTextFile(sFile)
Do Until txtStream.AtEndOfStream
Text=Text & txtStream.ReadLine & vbCrlf
Loop

Text = Ucase(Text)

'write file
Set txtStream=fso.OpenTextFile(Left(sFile, len(sFile)-4) & "2" & Right(sFile,4),2,True)
txtStream.WriteLine(Text)

txtstream.Close
Set txtstream = Nothing
Set fso = Nothing


du kannst so:
"drag&drop" des .ski files
im cmd: cscript D:file.vbs D:kleinbuchstaben.ski

oder willst alle *.ski in einem verzeichnis?

lg,
hariw



Re(4): Kleinbuchstaben in Große umwandeln
tilt — Mon, 20 Oct 2008 12:01:58 GMT
danke genau das habe ich gebraucht. so schaut jetzt der script aus falls es jemand sucht.



Dim Text, fso, txtStream
set fso=CreateObject("Scripting.FileSystemObject")
'read file
Set txtStream=fso.OpenTextFile("C:\\MC\TEST.SKI")
Do Until txtStream.AtEndOfStream
Text=Text & txtStream.ReadLine & vbCrlf
Loop

Text = Ucase(Text)

'write file
Set txtStream=fso.OpenTextFile("C:\\MC\TEST2.SKI",2,True)
txtStream.WriteLine(Text)

das ganze als *.vbs speichern 

lg



Re(4): Kleinbuchstaben in Große umwandeln
tilt — Mon, 20 Oct 2008 12:01:58 GMT
EDIT: Nur noch eine Frage. In der 4 Zeile ist der Pfad angegeben. C:\\MC\TEST.SKI

Die Datei heisst dann aber nicht test sondern NOD33324...SKI.. Die hat immer anderen Namen. *.SKI will er nicht nehmen. Wie soll ich das schreiben wenn die datei immer anderen Namen hat? 


danke genau das habe ich gebraucht. so schaut jetzt der script aus falls es jemand sucht.



Dim Text, fso, txtStream
set fso=CreateObject("Scripting.FileSystemObject")
'read file
Set txtStream=fso.OpenTextFile("C:\\MC\TEST.SKI")
Do Until txtStream.AtEndOfStream
Text=Text & txtStream.ReadLine & vbCrlf
Loop

Text = Ucase(Text)

'write file
Set txtStream=fso.OpenTextFile("C:\\MC\TEST2.SKI",2,True)
txtStream.WriteLine(Text)

das ganze als *.vbs speichern 

lg



Re(3): Kleinbuchstaben in Große umwandeln
Psychopath — Mon, 20 Oct 2008 11:56:51 GMT
tr ist auch bei den unxutils dabei.

j.



Re(4): Kleinbuchstaben in Große umwandeln
tilt — Mon, 20 Oct 2008 11:33:23 GMT
Genau... Ultraedit habe ich mir runtergeladen und der kann dass sehr gut. Das Problem ist dass unsere Leitung kein Geld für sowas ausgeben möchte und die Testversion nur 45 Tage verfügbar ist. Aber ich denke mir wenn der Ultraedit sowas mit einem Mausklick kann muss es doch im Windows auch einen CMD Befehl dafür geben. 

lg

Michal



Re(3): Kleinbuchstaben in Große umwandeln
hariw — Mon, 20 Oct 2008 10:16:22 GMT
hi,

in windows würde sich vbscript (für dauerhafte lösung) oder winword (manuell umformatieren) eignen - oder so gut wie jede programmiersprache deiner wahl 

https://startpage.com/do/search?hl=de&q=vbscript+file+ucase&btnG=Suche&meta= 

erster links chaut schon mal recht vielversprechend aus 

lg,
hariw



Re(3): Kleinbuchstaben in Große umwandeln
juwb — Mon, 20 Oct 2008 10:07:04 GMT
Unter Windows würdest du für sowas eher einen gängigen Texteditor nehmen, zumindest die Editoren die für Programmierer gedacht sind (Notepad++, Ultraedit, ...), sollten auch alle so eine Funktion haben.



Re(2): Kleinbuchstaben in Große umwandeln
tilt — Mon, 20 Oct 2008 09:47:44 GMT
Danke für die rasche Antwort, aber leider verwenden wir hier kein Linux. Gäbe es sowas auch für windows in der CMD konsole?

lg




Re: Kleinbuchstaben in Große umwandeln
juwb — Mon, 20 Oct 2008 09:42:06 GMT
Unter Linux:
tr [:lower:] [:upper:] < datei.mit.kleinbuchstaben > datei.mit.grossbuchstaben


Praktisch jede Programmiersprache hat zudem Funktionen für sowas, a la lower_case(), upper_case(), udgl., du müsstest also nur die Datei einlesen, die Funktion drauf anwenden, und wieder schreiben.



Kleinbuchstaben in Große umwandeln
tilt — Mon, 20 Oct 2008 09:23:24 GMT
Hallo Allerseits,

Gibt es ein Befehl mit dem man in einer Textdatei alle Kleinbuchstaben in Große umwandelt? Ganz wichtig. Es darf aber ausser dem "NICHTS" anderes geändert werden, nur die kleine in große. Kein Abstand kein Sonderzechichen usw. 

thx

lg
Michal