Groß und klein schreiben

[taheri]

Guten Morgen Entwickler,

kann jemand mir bitte diese Tool umprogeramiren :ich habe es nicht geschaft.
Die Aufgabe von Tool ist, bei Auswahl eine datei wird die datei mit ARJ gepackt und in einem RTF Feld angehängt. Der Datei muss eine bestimmte Endung haben und wird auch umbennat. Z. b  bei Auswahl   100A.plt  wird datei mit ARJ gepackt und umbennat in
100A_plt.arj. Alles funkioniert ausser er unterscheidet zwischen groß und klein schreiben.

@If(typ != "plt";@Return(@Prompt([OK];"Fehler";"Bitte eine plt-Datei auswählen!"));"");

Wenn der datei 100A.PLT heißt ,macht er nicht. Ich kenn aber kein Funktion, der ihm sagen kann . er soll kein unterschied zwischen groß und klein machen

Danke



dat:=@Prompt( [LOCALBROWSE];"Anhang";"Anhang auswählen");
@If(Dat = ""; @Return(1);"");
file := @RightBack(dat;"\\" );
file_ := @ReplaceSubstring(file;".";"_" ) ;
datei := @Left(file;".");
typ := @RightBack(dat;"." ) ;
@If(typ != "plt";@Return(@Prompt([OK];"Fehler";"Bitte eine plt-Datei auswählen!"));"");
@Command([EditDocument];"1") ;
pfad_tmp := @GetProfileField("UserProfile" ; "TempDir"; @UserName);
pfadTempDir := @If(@IsError(pfad_tmp) | pfad_tmp = ""; "C:\\Temp\\"; pfad_tmp);
comm95 := "C:\\Command" ;
commparm := "/C = " + pfadTempDir + "X.Bat \"" + dat + "\"   \"" + file_+ "\"";
commNT := "c:\\WINNT\\SYSTEM32\\CMD.exe" ;
sys := @Platform([Specific]) ;
@If(@Contains( sys; "/NT");
  @Command([Execute];commNT;commparm);
  @Command([Execute];comm95;commparm));
@Prompt([OK];"Fertig";"Das war\'s");
@Command([EditGotoField];"Plot") ;
@Command([EditInsertFileAttachment];pfadTempDir+file_+".arj")TEXT

[Till_21]

@If(@uppercase(typ) != "PLT";@Return(@Prompt([OK];"Fehler";"Bitte eine plt-Datei auswählen!"));"");

die fnkt @uppercase wandelt die übergebene zeichenkette in grossbuchstaben um. diese jetzt mit grossbuchstaben vergleichen und gut ist.

gruss / till

[taheri]

Danke
es hat gut geklappt

[taheri]

Hallo Til,

vorfeuernde war ein bisschen froh. Jetzt habe ich ein neues Problem und zwar, diese Agent lauft nicht mehr
Aufgabe von Agent ist. Gepackte Datei holen, entpacken in temp...Verzechniss und über eine View zeigen, jenachdem welche Format das ist. Er läuft nur wenn Datei kleine Buchstaben hat wie 100A-plt.arj
Und nicht wenn Datei 100A_PLT.arj heißt

Der Agent ist bei Postopen (maskeneingenschaft gepeichert)

Sub Postopen(Source As Notesuidocument)
     Dim session As New notessession
     Dim profiledoc As notesdocument
     Dim tmpDir As String, kompressionpath As String
     
     Set profiledoc = source.document.parentdatabase.getprofiledocument( "Userprofile", session.username)
     
     If profiledoc.TempDir(0)= "" Then
           tmpDir = "C:\Temp\"
     Else
           tmpDir = profiledoc.TempDir(0)
     End If
     
     If profiledoc.Kompression(0)= "" Then
           kompressionpath = "C:\ARJ\arj.exe"
     Else
           kompressionpath = profiledoc.Kompression(0)
     End If
     
     On Error Resume Next  
     If source.editMode =True Then    
           If Not MakeDirectory( tmpDir ) Then
                 Messagebox "Das temporäre Verzeichnis konnte nicht angelegt werden!"
                 Exit Sub
           End If
           Dim FileNum As Double
           FileNum = Freefile()
           Open tmpDir & "X.Bat" For Output As FileNum    
           Print #FileNum, Left$(tmpDir, 2)
           Print #FileNum,"CD\"
           Print #FileNum,"CD " & Right$(tmpDir, Len(tmpDir) - 3)
           Print #FileNum,"DEL " & tmpDir & "*.arj"          
           Print #FileNum, kompressionpath & "  a  -e  %2   %1"
           Close filenum
     End If      
End Sub

[taheri]

So das war mein Fehler Agen ist in Ordnung .der Fehler liegt bei Clik.Funktion .kann man da was machen?


Sub Click(Source As Button)
     
     Call ViewAttachment("Plot", "plt")
     
End Sub