passwort vergessen - registrieren

Festzeit.ch Forum » Offtopic » Wer-hat-das-letzte-Wort-Thread

1...2723272427252726272727282729273027312732273327342735...5763

Autor Beitrag 40921 - 40935
marciMi 4.7.07, 10:22
was heisst das?
UrichMi 4.7.07, 10:25
THE SIMPSONS
SubsonicParkMi 4.7.07, 10:26
aha
marciMi 4.7.07, 10:26
http://springfield-shopper.de/ wer het die au abboniert?
ArkinaMi 4.7.07, 10:27
jetzt hanis scho lang nümm gluegt... kei zit.....
marciMi 4.7.07, 10:27
wieso nid
ArkinaMi 4.7.07, 10:28
hahaha due nid so interessiert
SubsonicParkMi 4.7.07, 10:28
due nit dumm
marciMi 4.7.07, 10:28
wer
SubsonicParkMi 4.7.07, 10:29
sägi nit
marciMi 4.7.07, 10:30
hehe wenn gosch ferie
marciMi 4.7.07, 10:31
OpenVMS 도움말 메시지와 마찬가지로, SHOW LOGICAL 명령과 SHOW TRANSLATION 명령을 제외하고는 HANGULGEN 유틸리티를 사용하여 영어 또는 한글 메시지를 선택할 수 있습니다.
4.2.3 APPEND, BACKUP, CONVERT, COPY, CREATE 및TYPE 명령에서의 한글 사용

파일에 한글 데이터를 포함시킬 수 있습니다. 또한 APPEND, BACKUP, CONVERT, COPY, CREATE 및 TYPE 명령에 한글을 사용할 수 있습니다. 예를 들면 다음과 같습니다.

$ CREATE HANGUL.DAT

한글 문자를 사용할수 있습니다 ^Z

$

$ TYPE HANGUL.DAT

한글 문자를 사용할수 있습니다

$
4.2.4 ASSIGN, DEASSIGN 및 DEFINE 명령에서의 한글 사용

논리명과 등가 문자열에 한글을 사용할 수 있습니다. 또한 ASSIGN, DEASSIGN 및 DEFINE 명령에서도 한글을 사용할 수 있습니다.

ASSIGN 명령과 DEFINE 명령을 사용하여 한글 문자로 정의된 논리명을 화면표시하기 위하여 SHOW LOGICAL 명령과 SHOW TRANSLATION 명령을 사용할 수 있습니다. 그리고, 렉시칼 함수F$LOGICAL은 한글로 변환될 수 있습니다. 예를 들면 다음과 같습니다.

$ DEFINE 논리명 그림

$ SHOW LOGICAL 논리명

"논리명" = "그림" (LNM$PROCESS_TABLE)

$ _변수=F$LOGICAL("논리명"

$ SHOW SYMBOL _변수

_변수 = "그림"
SubsonicParkMi 4.7.07, 10:31
ahaa
marciMi 4.7.07, 10:32
isch huere kompliziert!!! :S:S:S:S

/ALL


모든 단말기 장치의 특성을 화면표시합니다. 이 한정자를 사용하려면 PHY_IO 및 SHARE 특권이 필요합니다. 현재 장치가 아닌 장치에 대해서는 출력 유형이 "Unknown"으로 표시됩니다. (다음 페이지의 예 참조

/PERMANENT


단말기의 영구적인 특성을 화면표시합니다. 이 한정자를 사용하려면 PHY_IO 또는 LOG_IO 특권이 필요합니다.

/SYSTEM


시스템의 내정 특성을 화면표시합니다. 이 한 정자를 사용하려면 PHY_IO 특권이 필요합니 다.
5.4 명령 예

1. 한글 단말기로서의 모든 단말기 장치의 특성을 보려면 다음과 같이 하십시오.

HANGULGEN>SHOW

Device Name Type Input Output

_RTA2: HANGUL_VDU ASCIIH ANGUL_MSG



HANGULGEN>SHOW/ALL

Device Name Type Input Output

_OPA0: LA36 ASCII Unknown

_RTA1: VT300_Series HANGUL Unknown

_RTA2: HANGUL_VDU ASCII HANGUL_MSG

_LTA5006: VT200_Series HANGUL Unknown

_LTA5007: HANGUL_VDU ASCII Unknown

_LAT5008: HANGUL_VDU ASCII Unknown

Total : 6 Terminals

1. VT382 단말기에 한글 메시지가 화면표시되게 설정하려면 다음과 같이 하십시오.

$ RUN HSY$SYSTEM:HANGULGEN

HANGULGEN> SHOW

Device name Type Input Output

_TTA0: VT200_series ASCII ASCII_MSG



HANGULGEN> SET /DEVICE_TYPE=VT382



HANGULGEN> SHOW

Device Name Type Input Output

_TTA0:HANGUL_VDUHANGULHANGUL_MSG

1. LA380-K 한글 프린터의 특성을 설정한 후, 그것을 보려면 다음과 같이 하십시오.

HANGULGEN> SET TXA1: /DEVICE_TYPE=LA380 /PERMANENT

HANGULGEN> SHOW TXA1:

Device Name Type Input Output

_TXA1: HANGUL_PRT HANGUL Unknown

1. 단말기를 ASCII 특성으로 다시 설정한 후, 그것을 보려면 다음 과 같이 하십시오.

HANGULGEN> SHOW TXA2:

Device Name Type Input Output

_TXA2: HANGUL_VDU HANGUL ASCII_MSG

HANGULGEN> SET TXA2:/DEVICE_TYPE=VT100 /PERMANENT

HANGULGEN> SHOW TXA2:

Device Name Type Input Output

_TXA2: VT100 ASCII ASCII_MSG
5.5 행 이상 계속되는 명령

DCL 명령과 같이, 명령어 문자열을 2행 이상에 걸쳐 계속 입력하 려면 HANGULGEN 명령 레벨에서 행의 마지막 문자로 연속 표시 문자인 하이픈("-"을 입력하십시오. 예를 들면 다음과 같습니다．

HANGULGEN> SET TTA0: /DEVICE_TYPE=VT382 -

_HANGULGEN> /PERMANENT
5.6 주석 행 지원

DCL 명령과 같이, HANGULGEN 명령 레벨에서 주석 행을 입력하려면 주석의 맨 앞에 느낌표 "!"를 입력하십시오. 예를 들면 다음과 같습니다.

HANGULGEN> ! set tta0 as VT382 as Hangul terminal

HANGULGEN> SET TTA0: /DEVICE_TYPE=VT382 /PERMANENT
SubsonicParkMi 4.7.07, 10:33
#! Perl

$filename = $ARGV[0]; #Filename wird eingelesen: perl test.pl [filename]

if($filename eq ""{print("\n\nKein Filename definiert!!
Syntax: perl $0 [DATEINAME]\n\n"; exit;}

if(-e $filename) { #prüft ob File existiert
open (DATEI, $filename);

#erst einmal die Konsole aufreumen
print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n";
do{ #alles in ein do while damit mehrere Suchen gestartet werden können
#variablen definieren (damit im do-while nichts verkommt)
$erg=0;
$vorausgabe="";
$ausgabe="";
$platzhalter="";
$suchwort="";
$wort="";

print "\n\n--------------------------------------------------\n\n-> Bitte gib jetzt das Format an wie die Daten gespeichert sind.\n\n

Eine Zeile = ein Termin.
Zeichen ersetzen (vor dem Parsen): [REPLACE='ä=ae', 'ü=ue', 'ö=oe', ' Uhr=']

Felder:
[BETREFF]
[BESCHREIBUNG]
[START_ZEIT] -> im format 22.07.2007 20:15
[END_ZEIT] -> im format 22.07.2007 20:15
[PRIVAT] -> 1 oder 0 für ja oder nein
[PRIORITAET] -> zB 9
[MINS_ALARM] -> Wieviele Minuten vor dem Termin informiert werden soll
[IGNORIEREN] -> Ueberspringt das Feld

Wird ein Feld mehrfach erwähnt wird das 2. an das 1. mit einem Leerzeichen angehängt usw.

Das [REPLACE] wird als erstes angewendet!

Beispiel:\n[BESCHREIBUNG], [START_ZEIT], [IGNORIEREN] [BETREFF][REPLACE=' Uhr=']

Bitte das Muster eingeben: ";
$formatvorlage = <STDIN>; #Eingabe des Suchwortes
chomp($formatvorlage); #Zeilenumbrüche entfernen
print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\n";

if($formatvorlage ne ""{ #prüfen ob Suchwort nicht leer ist, ansonsten skript beenden


#jetzt nach vorlage trennen
#trennungszeichen herausfinden: $formatvorlage
@erstetrennung = split(/\]+/,$formatvorlage);
foreach(@erstetrennung){
@erstetrennungzeichen = split(/\[+/,$_); $platzhalter = "";
$trennzeichen = $erstetrennungzeichen[0];
#print $trennzeichen."-";
if($erstetrennungzeichen[1] =~ /replace/i){}else{
$anzTRENNZEICHENcount++;

for($c=0; $c<10- length($anzTRENNZEICHENcount); $c++){ #stellen wieviel trennzeichen...
$platzhalter .="0";
}
$trennzeichenliste{$platzhalter.$anzTRENNZEICHENcount."-".$erstetrennungzeichen[1]} = $erstetrennungzeichen[0];
}
}
print "\n\n\n";

#zur kontrolle trennzeichen und feldname posten:
print "NR FELDNAME 'TRENNZEICHEN'\n\n";
foreach $key(sort keys%trennzeichenliste){
$kontrollcounter++;
@keyohnenummer = split(/\-+/,$key);
print $kontrollcounter .". ". $keyohnenummer[1]." = '".$trennzeichenliste{$key}."'\n";
}
print "\n\n\n";

$calcount = 1;




#heutiges datum für die termine
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

if($year>100){$year = 1900+$year;}
if(length($mon+1)==1){$mon = "0".($mon+1);}else{$mon = $mon+1;}
if(length($mday)==1){$mday = "0".$mday;}

if(length($hour)==1){$hour = "0".$hour;}
if(length($min)==1){$min = "0".$min;}
if(length($sec)==1){$sec = "0".$sec;}

#20070606T154006Z
$heutigesdatum = $year.$mon.$mday."T".$hour.$min.$sec."Z";



while(<DATEI> {
chomp;
$zeileninhalt = $_;

$formatvorlage = "[IGNORIEREN]".$formatvorlage;
if($formatvorlage =~ /\[REPLACE\=/i){

@splitreplace = split(/\[REPLACE=+/,$formatvorlage);
#print $splitreplace[1];
@getREPLACEstring = split(/\]+/,$splitreplace[1]);

if($getREPLACEstring[0] =~ /\,/i){

@splitreplace = split(/\,+/,$getREPLACEstring[0]);

for($ol=0; $ol<scalar(@splitreplace) and $ol <1000; $ol++)
{
$replaceit = ""; @replacethatwith=""; $replacethatwith="";
$replaceit = $splitreplace[$ol]; #zb "'hallo=hello'"
$replaceit =~ tr/\'//d;
@replacethatwith = split(/\=/, $replaceit);
#print "[".$replacethatwith[1]."]";
$zeileninhalt =~ s/$replacethatwith[0]/$replacethatwith[1]/g;
#print scalar(@splitreplace);
}

}else{
#wenn nur ein "replace", also ohne komma
$getREPLACEstring[0] =~ tr/\'//d;
@replacethatwith = split(/\=/, $getREPLACEstring[0]);
#print "[".$replacethatwith[1]."]";
$zeileninhalt =~ s/$replacethatwith[0]/$replacethatwith[1]/g;
}
} #ende if($formatvorlage =~ /"\[REPLACE\="/i)



#keys in ein array schreiben
$ck=0;
foreach $key(sort keys%trennzeichenliste){
$ergebnisKEYliste[$ck] = $key;
#print "$key\n";
$ck++;
}
#print "\n\n\n[".$ergebnisKEYliste[2]."]\n\n\n";
$ergebnisliste = "";
%ergebnisliste = "";
@ergebnisliste = "";

$rck=0;
$workwiththat = $zeileninhalt;
foreach $key(sort keys%trennzeichenliste){
$workwiththat = "<<<>>>".$workwiththat;
$ck = $rck;
@keyohnenummer = split(/\-+/,$key);
#$keyohnenummer[0] = Feldnummer
#$keyohnenummer[1] = Feldname
#$trennzeichenliste{$key} = Trennzeichen

$therealkey = $ergebnisKEYliste[$ck];
$thenextkey = $ergebnisKEYliste[$ck+1];
if(length($trennzeichenliste{$therealkey})==0){ $trennzeichenliste{$therealkey}= "<<<>>>";}

@replacethatwithinZEILe = split(/$trennzeichenliste{$therealkey}/, $workwiththat);
if(length($trennzeichenliste{$thenextkey})>0 and $ergebnisKEYliste[-1]!=$ergebnisKEYliste[$ck+1]){

@replacethatwithinZEILe = split(/$trennzeichenliste{$thenextkey}/, $replacethatwithinZEILe[1]);
$replacethatwithinZEILe[1] = $replacethatwithinZEILe[0];
}

#if($ergebnisKEYliste[-1]==$ergebnisKEYliste[$ck]){$replacethatwithinZEILe[1] = $workwiththat;}
if(exists($ergebnisliste{$keyohnenummer[1]})){
$ergebnisliste{$keyohnenummer[1]} = $ergebnisliste{$keyohnenummer[1]}." ".$replacethatwithinZEILe[1];
}else{
$ergebnisliste{$keyohnenummer[1]} = $replacethatwithinZEILe[1];
}
#print "'".$replacethatwithinZEILe[1]."' ";


$workwiththat = substr($workwiththat, 6+length($replacethatwithinZEILe[1]));
#print "\n->".$workwiththat."\n";
$rck++;
}

foreach $key(sort keys%ergebnisliste){
$test = $key;
$beschreibung = "1";$startzeit="1";$betreff="1";
if(length($key)>0){
$printforcheck .= "$key: ".$ergebnisliste{$key}."\n";
#print "\n$key: ";
if($test){
#print " = [".$ergebnisliste{$key}."]\n";
$beschreibung = $ergebnisliste{$key};
}
}

$test = "";
}
$printforcheck .= "\n";

if($ergebnisliste{"BESCHREIBUNG"}==0){$printprivate = "";}else{$printprivate = "PRIVATE";}

chomp($ergebnisliste{"MINS_ALARM"});
if(length($ergebnisliste{"MINS_ALARM"}) > 0){$printalarm = 'TRIGGERT'.$ergebnisliste{"MINS_ALARM"}.'M';}else{$printalarm = 'TRIGGERT15M';}
if(length($ergebnisliste{"PRIORITAET"}) > 0){$printprio = 'PRIORITY:'.$ergebnisliste{"PRIORITAET"}.'';}else{$printprio = 'PRIORITY:9';}

#startzeit umwandeln:
if(length($ergebnisliste{"START_ZEIT"})==16){
@startzeitteile = split(/ +/, $ergebnisliste{"START_ZEIT"});
@startzeitteiledatum = split(/\.+/,$startzeitteile[0]);
@startzeitteilezeit = split(/:+/,$startzeitteile[1]);
$neuestartzeitdatum = $startzeitteiledatum[2].$startzeitteiledatum[1].$startzeitteiledatum[0]."T".$startzeitteilez eit[0].$startzeitteilezeit[1]."00Z";
}else{$neuestartzeitdatum = $heutigesdatum;}
if(length($neuestartzeitdatum)!=16){$neuestartzeitdatum = $heutigesdatum;}

#endzeit umwandeln:
if(length($ergebnisliste{"END_ZEIT"})==16){
@endzeitteile = split(/ +/, $ergebnisliste{"END_ZEIT"});
@endzeitteiledatum = split(/\.+/,$endzeitteile[0]);
@endzeitteilezeit = split(/:+/,$endzeitteile[1]);
$neuesendzeitdatum = $endzeitteiledatum[2].$endzeitteiledatum[1].$endzeitteiledatum[0]."T".$endzeitteilezeit[0].$ endzeitteilezeit[1]."00Z";
}else{$neuesendzeitdatum = $neuestartzeitdatum;}
if(length($neuesendzeitdatum)!=16){$neuesendzeitdatum = $heutigesdatum;}

$sendtermin .= '


BEGIN:VEVENT
DTSTART:'.$neuestartzeitdatum.'
DTEND:'.$neuesendzeitdatum.'
LOCATION:'.$ergebnisliste{"ORT"}.'
TRANSP:OPAQUE
SEQUENCE:0
UID:'.$calcount.'
DTSTAMP:'.$heutigesdatum.'
DESCRIPTION:'.$ergebnisliste{"BESCHREIBUNG"}.'\n
SUMMARY:'.$ergebnisliste{"BETREFF"}.'
'.$printprio.'
X-MICROSOFT-CDO-IMPORTANCE:0
CLASS:'.$printprivate.'
BEGIN:VALARM
'.$printalarm.'
ACTION:NO-DISPLAY
DESCRIPTION:Reminder
END:VALARM
END:VEVENT



';
$calcount++;

# exit;

} #while(<DATEI>

$output .='BEGIN:VCALENDAR
PRODID:-//Microsoft Corporation//Outlook 11.0 MIMEDIR//EN
VERSION:2.0
METHOD:REQUEST';
$output .=$sendtermin;
$output .="\nEND:VCALENDAR";
#print $output;

print $printforcheck;



}# Ende if($suchwort ne ""{
}while($suchwort ne "";
close(DATEI); #datei schliessen


#daten in datei schreiben:
print "... schreibe jetzt in die Datei...";
print "[".$startzeitteile[0]."]";

$schreibeindiesedatei = 'C:\testtermine.ics';

open(TOFILE, ">".$schreibeindiesedatei) || die "Kann $schreibeindiesedatei nicht öffnen: $!";
print TOFILE $output;
close(TOFILE) || die "Kann $schreibeindiesedatei nicht schliessen: $!";

Als angemeldeter festzeit.ch Member kannst du Themen erstellen und auf Beiträge antworten.
 
Infos/Hilfe » ©