Initial commit
This commit is contained in:
BIN
EDKB08/_Archiv/archiv/EDKB08_GSF/DLL-aktuell/EDKB08_GSF.dll
Normal file
BIN
EDKB08/_Archiv/archiv/EDKB08_GSF/DLL-aktuell/EDKB08_GSF.dll
Normal file
Binary file not shown.
51
EDKB08/_Archiv/archiv/EDKB08_GSF/DLL-aktuell/gsf/EBES.xml
Normal file
51
EDKB08/_Archiv/archiv/EDKB08_GSF/DLL-aktuell/gsf/EBES.xml
Normal file
@@ -0,0 +1,51 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<root>
|
||||
<config>
|
||||
<!-- Name der Anwendung -->
|
||||
<RootName>EBES</RootName>
|
||||
|
||||
<!-- Kein Net Use notwendig.
|
||||
Erlaubte Typen:
|
||||
- 0: Ohne Net Use (Direkte Pfadangabe)
|
||||
- 1: mit Net Use
|
||||
-->
|
||||
<MitNetUse>0</MitNetUse>
|
||||
|
||||
<!-- Net Use Parameter -->
|
||||
<NetUseParameter>\\tgcebes01.tgkb.agi.ch\agtguv</NetUseParameter>
|
||||
|
||||
<!-- Pfad der Source Dateien
|
||||
Immer mit \ am Schluss
|
||||
-->
|
||||
<PfadSourceFiles>\\tgcebes01.tgkb.agi.ch\agtguv\</PfadSourceFiles>
|
||||
|
||||
<!-- Anmeldung mit User Notwendig.
|
||||
Erlaubte Typen:
|
||||
- 0: Ohne
|
||||
- 1: mit Anmeldung
|
||||
-->
|
||||
<NetUseNT>0</NetUseNT>
|
||||
|
||||
<!-- Share Benutzer inkl. Domain -->
|
||||
<NetUseUser>user</NetUseUser>
|
||||
|
||||
<!-- Share Passwort -->
|
||||
<NetUsePW>password</NetUsePW>
|
||||
|
||||
<!-- Dateiendung Org SourceFiles -->
|
||||
<DateiEndung_Org_Files>XML</DateiEndung_Org_Files>
|
||||
|
||||
<!-- Dateiendung OK SourceFiles -->
|
||||
<DateiEndung_OK_Files>XMX</DateiEndung_OK_Files>
|
||||
|
||||
<!-- Dateiendung Error SourceFiles -->
|
||||
<DateiEndung_Error_Files>XER</DateiEndung_Error_Files>
|
||||
|
||||
<!-- Dateiendung Error in EDKB08 SourceFiles -->
|
||||
<DateiEndung_ErrorEDKB08_Files>XEE</DateiEndung_ErrorEDKB08_Files>
|
||||
|
||||
<!-- Temppfad fuer neue SourceFiles -->
|
||||
<PfadTempSourceFiles>c:\edokatemp\tmp_EBES\</PfadTempSourceFiles>
|
||||
|
||||
</config>
|
||||
</root>
|
||||
49
EDKB08/_Archiv/archiv/EDKB08_GSF/DLL-aktuell/gsf/LSVPlus.xml
Normal file
49
EDKB08/_Archiv/archiv/EDKB08_GSF/DLL-aktuell/gsf/LSVPlus.xml
Normal file
@@ -0,0 +1,49 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<root>
|
||||
<config>
|
||||
<!-- Name der Anwendung -->
|
||||
<RootName>LSV+</RootName>
|
||||
|
||||
<!-- Kein Net Use notwendig.
|
||||
Valid methods are:
|
||||
- 0: Ohne Net Use (Direkte Pfadangabe)
|
||||
- 1: mit Net Use
|
||||
-->
|
||||
<MitNetUse>1</MitNetUse>
|
||||
|
||||
<!-- Net Use Parameter -->
|
||||
<NetUseParameter>\\SERVER01\TRANSFER$</NetUseParameter>
|
||||
|
||||
<!-- Pfad der Source Dateien -->
|
||||
<PfadSourceFiles>\\SERVER01\TRANSFER$\TEMP2\</PfadSourceFiles>
|
||||
|
||||
<!-- Anmeldung mit User Notwendig.
|
||||
Valid methods are:
|
||||
- 0: Ohne
|
||||
- 1: mit Anmeldung
|
||||
-->
|
||||
<NetUseNT>0</NetUseNT>
|
||||
|
||||
<!-- Share Benutzer inkl. Domain -->
|
||||
<NetUseUser>tester1</NetUseUser>
|
||||
|
||||
<!-- Share Passwort -->
|
||||
<NetUsePW>tb.1234</NetUsePW>
|
||||
|
||||
<!-- Dateiendung Org SourceFiles -->
|
||||
<DateiEndung_Org_Files>XML</DateiEndung_Org_Files>
|
||||
|
||||
<!-- Dateiendung OK SourceFiles -->
|
||||
<DateiEndung_OK_Files>XMX</DateiEndung_OK_Files>
|
||||
|
||||
<!-- Dateiendung Error SourceFiles -->
|
||||
<DateiEndung_Error_Files>XER</DateiEndung_Error_Files>
|
||||
|
||||
<!-- Dateiendung Error in EDKB08 SourceFiles -->
|
||||
<DateiEndung_ErrorEDKB08_Files>XEE</DateiEndung_ErrorEDKB08_Files>
|
||||
|
||||
<!-- Temppfad fuer neue SourceFiles -->
|
||||
<PfadTempSourceFiles>c:\edokatemp\tmp_LSV\</PfadTempSourceFiles>
|
||||
|
||||
</config>
|
||||
</root>
|
||||
@@ -0,0 +1,6 @@
|
||||
KST Ersteller>;KST_Ersteller>
|
||||
Ersetzt bisherige Regelungen>;Ersetzt_bisherige_Regelungen>
|
||||
ä;ae
|
||||
ö;oe
|
||||
ü;ue
|
||||
Ü;UE
|
||||
@@ -0,0 +1,31 @@
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' Allgemeine Informationen über eine Assembly werden über die folgende
|
||||
' Attributgruppe gesteuert. Ändern Sie diese Attributwerte, um Informationen,
|
||||
' die mit einer Assembly verknüpft sind, zu bearbeiten.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("")>
|
||||
<Assembly: AssemblyCopyright("")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
<Assembly: CLSCompliant(True)>
|
||||
|
||||
'Die folgende GUID ist für die ID der Typbibliothek, wenn dieses Projekt in COM angezeigt wird
|
||||
<Assembly: Guid("ABE64538-E4C1-4B79-9333-545A604265DA")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Haupversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revisionsnummer
|
||||
'
|
||||
' Sie können alle Werte angeben oder auf die standardmäßigen Build- und Revisionsnummern
|
||||
' zurückgreifen, indem Sie '*' wie unten angezeigt verwenden:
|
||||
|
||||
<Assembly: AssemblyVersion("2.0.*")>
|
||||
@@ -0,0 +1,307 @@
|
||||
Imports System.IO
|
||||
Imports System.Xml
|
||||
|
||||
Public Class Common
|
||||
|
||||
#Region " Deklarationen"
|
||||
|
||||
Dim m_Config_Path As String
|
||||
Dim m_Config_DateiEndung As String
|
||||
Dim m_MitWatcherObjekt As Boolean = False
|
||||
Dim m_WatcherObjekt As FileSystemWatcher
|
||||
|
||||
'Alle XML Variabeln
|
||||
Dim m_param_RootName As String
|
||||
Dim m_param_MitNetUse As Integer
|
||||
Dim m_param_NetUseParameter As String
|
||||
Dim m_param_PfadSourceFiles As String
|
||||
Dim m_param_NetUseNT As Integer
|
||||
Dim m_param_NetUseUser As String
|
||||
Dim m_param_NetUsePW As String
|
||||
Dim m_param_DateiEndung_Org_Files As String
|
||||
Dim m_param_DateiEndung_OK_Files As String
|
||||
Dim m_param_DateiEndung_Error_Files As String
|
||||
Dim m_param_DateiEndung_ErrorEDKB08_Files As String
|
||||
Dim m_param_PdadTempSourceFiles As String
|
||||
|
||||
Dim m_error As Boolean = False
|
||||
Dim m_CollConfigFiles As New Collection()
|
||||
Dim m_DokToInit As Boolean = False
|
||||
|
||||
Private Enum Enum_MapTyp
|
||||
Mappen = 0
|
||||
Loeschen = 1
|
||||
End Enum
|
||||
|
||||
Public Enum Enum_DokStatus
|
||||
OK = 1
|
||||
Fehler = 2
|
||||
FehlerEDKB08 = 3
|
||||
End Enum
|
||||
|
||||
Public Event StartVerarbeitung(ByVal InputVerzeichnis As String)
|
||||
Public Event LogToBMS(ByVal LogEintrag As String, ByVal iTyp As Integer)
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " Public"
|
||||
|
||||
#Region " Init"
|
||||
|
||||
Public Sub Sub_Init(ByVal Config_Path As String, ByVal Config_DateiEndung As String)
|
||||
m_Config_Path = Config_Path
|
||||
m_Config_DateiEndung = Config_DateiEndung
|
||||
End Sub
|
||||
|
||||
Public Sub Sub_Init(ByVal Config_Path As String, ByVal Config_DateiEndung As String, ByRef WatcherObjekt As FileSystemWatcher)
|
||||
m_MitWatcherObjekt = True
|
||||
m_WatcherObjekt = WatcherObjekt
|
||||
m_WatcherObjekt.EnableRaisingEvents = False
|
||||
|
||||
m_Config_Path = Config_Path
|
||||
m_Config_DateiEndung = Config_DateiEndung
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Public Sub Start_Checking()
|
||||
'Anzahl ConfigFiles holen
|
||||
GetConfigFiles(m_CollConfigFiles, m_Config_DateiEndung, m_Config_Path)
|
||||
|
||||
'Config Auslesen
|
||||
Dim i As Integer
|
||||
For i = 1 To m_CollConfigFiles.Count
|
||||
If ReadConfig(m_Config_Path + m_CollConfigFiles.Item(i)) = True Then
|
||||
CopyFilesToLocalSystem()
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Public Function Set_DokStatus(ByVal DokumentName As String, ByVal bStatus As Enum_DokStatus) As Boolean
|
||||
'True = OK
|
||||
'False = NOK
|
||||
Set_DokStatus = WriteDokumentStatus(bStatus, DokumentName)
|
||||
|
||||
End Function
|
||||
|
||||
#Region " End Sub"
|
||||
|
||||
Public Sub Sub_End()
|
||||
If m_MitWatcherObjekt = True Then
|
||||
m_WatcherObjekt.EnableRaisingEvents = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Diverses "
|
||||
|
||||
Private Sub GetConfigFiles(ByRef Col_Data As Collection, ByVal sDateiendung As String, ByVal sPfad As String)
|
||||
'Dateinamen der Config Dateien auslesen
|
||||
Try
|
||||
Dim di As New IO.DirectoryInfo(sPfad)
|
||||
Dim diar1 As IO.FileInfo() = di.GetFiles("*." & sDateiendung)
|
||||
Dim dra As IO.FileInfo
|
||||
For Each dra In diar1
|
||||
Col_Data.Add(dra.Name)
|
||||
Next
|
||||
Catch Ex As Exception
|
||||
RaiseEvent LogToBMS("Fehler: GetConfigFiles: " + Ex.Message, 3)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function ReadConfig(ByVal ConfigFile As String) As Boolean
|
||||
Try
|
||||
Dim xmldoc As New XmlDocument()
|
||||
xmldoc.Load(ConfigFile)
|
||||
|
||||
m_param_RootName = xmldoc.SelectSingleNode("/root/config/RootName").InnerText()
|
||||
m_param_MitNetUse = xmldoc.SelectSingleNode("/root/config/MitNetUse").InnerText()
|
||||
m_param_NetUseParameter = xmldoc.SelectSingleNode("/root/config/NetUseParameter").InnerText()
|
||||
m_param_PfadSourceFiles = xmldoc.SelectSingleNode("/root/config/PfadSourceFiles").InnerText()
|
||||
m_param_NetUseNT = Int(xmldoc.SelectSingleNode("/root/config/NetUseNT").InnerText())
|
||||
m_param_NetUseUser = xmldoc.SelectSingleNode("/root/config/NetUseUser").InnerText()
|
||||
m_param_NetUsePW = xmldoc.SelectSingleNode("/root/config/NetUsePW").InnerText()
|
||||
m_param_DateiEndung_Org_Files = xmldoc.SelectSingleNode("/root/config/DateiEndung_Org_Files").InnerText()
|
||||
m_param_DateiEndung_OK_Files = xmldoc.SelectSingleNode("/root/config/DateiEndung_OK_Files").InnerText()
|
||||
m_param_DateiEndung_Error_Files = xmldoc.SelectSingleNode("/root/config/DateiEndung_Error_Files").InnerText()
|
||||
m_param_DateiEndung_ErrorEDKB08_Files = xmldoc.SelectSingleNode("/root/config/DateiEndung_ErrorEDKB08_Files").InnerText()
|
||||
m_param_PdadTempSourceFiles = xmldoc.SelectSingleNode("/root/config/PfadTempSourceFiles").InnerText()
|
||||
|
||||
'Config in Ordnung
|
||||
ReadConfig = True
|
||||
Catch ex As Exception
|
||||
ReadConfig = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub CopyFilesToLocalSystem()
|
||||
'Wenn Net Use Parametrisiert ist diesen ausführen
|
||||
If m_param_MitNetUse = 1 Then
|
||||
makeNetUse(Enum_MapTyp.Mappen)
|
||||
End If
|
||||
m_DokToInit = False
|
||||
Dim m_CollGSF As New Collection()
|
||||
GetConfigFiles(m_CollGSF, m_param_DateiEndung_Org_Files, m_param_PfadSourceFiles)
|
||||
Dim i As Integer
|
||||
For i = 1 To m_CollGSF.Count
|
||||
copySourceFiles(m_param_PfadSourceFiles, m_param_PdadTempSourceFiles, m_CollGSF.Item(i))
|
||||
m_DokToInit = True
|
||||
Next
|
||||
m_CollGSF = Nothing
|
||||
If m_DokToInit = True Then
|
||||
RaiseEvent StartVerarbeitung(m_param_PdadTempSourceFiles)
|
||||
End If
|
||||
'Wenn Net Use Parametrisiert ist diesen wieder trennen
|
||||
If m_param_MitNetUse = 1 Then
|
||||
makeNetUse(Enum_MapTyp.Loeschen)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function makeNetUse(ByVal iTyp As Enum_MapTyp) As Integer
|
||||
'Net Use ausführen
|
||||
Dim cmdret As Integer
|
||||
Try
|
||||
If iTyp = Enum_MapTyp.Mappen Then
|
||||
If m_param_NetUseNT = 1 Then
|
||||
cmdret = Shell("Net Use " & m_param_NetUseParameter & " " & m_param_NetUsePW & " /user:" & m_param_NetUseUser, AppWinStyle.NormalFocus, True)
|
||||
Else
|
||||
cmdret = Shell("Net Use " & m_param_NetUseParameter, AppWinStyle.NormalFocus, True)
|
||||
End If
|
||||
Else
|
||||
cmdret = Shell("Net Use " & m_param_NetUseParameter & " /d /y", AppWinStyle.NormalFocus, True)
|
||||
End If
|
||||
makeNetUse = cmdret
|
||||
Catch ex As Exception
|
||||
RaiseEvent LogToBMS("Fehler: makeNetUse: " + ex.Message, 3)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub copySourceFiles(ByVal sPfad As String, ByVal sZielPfad As String, ByVal sDateiname As String)
|
||||
Try
|
||||
Dim sDateiNameIND As String
|
||||
If FolderExist(sZielPfad) = False Then
|
||||
Create_Folders(sZielPfad)
|
||||
End If
|
||||
sDateiNameIND = Left(sDateiname, Len(sDateiname) - Len(m_param_DateiEndung_Org_Files) - 1) + ".IND"
|
||||
'File.Copy(sPfad + sDateiname, sZielPfad + sDateiname, True)
|
||||
ReplaceXMLBlanks(sPfad + sDateiname, sZielPfad + sDateiNameIND)
|
||||
|
||||
Dim m_CollSourceFiles As New Collection()
|
||||
Dim sUnterOrdner As String
|
||||
sUnterOrdner = Left(sDateiname, Len(sDateiname) - Len(m_param_DateiEndung_Org_Files) - 1) + "\"
|
||||
|
||||
'Alle Dateien im Unterverzeichnis auslesen
|
||||
GetConfigFiles(m_CollSourceFiles, "tif", m_param_PfadSourceFiles + sUnterOrdner)
|
||||
Dim i As Integer
|
||||
If m_CollSourceFiles.Count > 0 Then
|
||||
If FolderExist(sZielPfad) = False Then
|
||||
Create_Folders(sZielPfad)
|
||||
End If
|
||||
End If
|
||||
For i = 1 To m_CollSourceFiles.Count
|
||||
File.Copy(sPfad + sUnterOrdner + m_CollSourceFiles.Item(i), sZielPfad + m_CollSourceFiles.Item(i), True)
|
||||
Next
|
||||
m_CollSourceFiles = Nothing
|
||||
|
||||
Catch ex As Exception
|
||||
RaiseEvent LogToBMS("Fehler: copySourceFiles: " + ex.Message, 3)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ReadXMLReplaceTextFile(ByRef change_col As Collection)
|
||||
Try
|
||||
Dim s As String = ""
|
||||
Dim Splitresult As String()
|
||||
FileOpen(1, m_Config_Path + "WordChange.txt", OpenMode.Input)
|
||||
While Not EOF(1)
|
||||
Input(1, s)
|
||||
If Len(s) >= 3 Then
|
||||
Splitresult = s.Split(";")
|
||||
change_col.Add(New WordChange(Splitresult(0), Splitresult(1)))
|
||||
End If
|
||||
End While
|
||||
Catch ex As Exception
|
||||
RaiseEvent LogToBMS("Fehler: ReplaceXMLBlanks: " + ex.Message, 3)
|
||||
Finally
|
||||
FileClose(1)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ReplaceXMLBlanks(ByVal sOrgFile As String, ByVal sOutputFile As String)
|
||||
Try
|
||||
Dim sr As IO.StreamReader
|
||||
Dim sw As IO.StreamWriter
|
||||
Dim s As String
|
||||
Dim change_col As New Collection()
|
||||
Dim i As Integer
|
||||
|
||||
ReadXMLReplaceTextFile(change_col)
|
||||
|
||||
'Inpute
|
||||
sr = New IO.StreamReader(sOrgFile, System.Text.Encoding.GetEncoding("ISO-8859-1"))
|
||||
s = sr.ReadToEnd
|
||||
sr.Close()
|
||||
|
||||
'Ersetz
|
||||
Dim wc As WordChange
|
||||
For i = 1 To change_col.Count
|
||||
wc = change_col(i)
|
||||
s = s.Replace(wc.SourceString, wc.TargetString)
|
||||
Next
|
||||
|
||||
'aubut
|
||||
sw = New IO.StreamWriter(sOutputFile, True, System.Text.Encoding.GetEncoding("ISO-8859-1"))
|
||||
sw.Write(s)
|
||||
sw.Flush()
|
||||
sw.Close()
|
||||
Catch ex As Exception
|
||||
RaiseEvent LogToBMS("Fehler: ReplaceXMLBlanks: " + ex.Message, 3)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function WriteDokumentStatus(ByVal bStatus As Enum_DokStatus, ByVal sDokumentName As String) As Boolean
|
||||
WriteDokumentStatus = True
|
||||
Try
|
||||
'Wenn Net Use Parametrisiert ist diesen ausführen
|
||||
If m_param_MitNetUse = 1 Then
|
||||
makeNetUse(Enum_MapTyp.Mappen)
|
||||
End If
|
||||
|
||||
If FolderExist(m_param_PfadSourceFiles) = False Then
|
||||
RaiseEvent LogToBMS("Fehler: Kann Ordner nicht Finden", 3)
|
||||
WriteDokumentStatus = False
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
If File.Exists(m_param_PfadSourceFiles + sDokumentName + "." + m_param_DateiEndung_Org_Files) = False Then
|
||||
RaiseEvent LogToBMS("Fehler: Kann Datei nicht Finden", 3)
|
||||
WriteDokumentStatus = False
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
Select Case bStatus
|
||||
Case Enum_DokStatus.OK
|
||||
File.Move(m_param_PfadSourceFiles + sDokumentName + "." + m_param_DateiEndung_Org_Files, m_param_PfadSourceFiles + sDokumentName + "." + m_param_DateiEndung_OK_Files)
|
||||
Case Enum_DokStatus.Fehler
|
||||
File.Move(m_param_PfadSourceFiles + sDokumentName + "." + m_param_DateiEndung_Org_Files, m_param_PfadSourceFiles + sDokumentName + "." + m_param_DateiEndung_Error_Files)
|
||||
Case Enum_DokStatus.FehlerEDKB08
|
||||
File.Move(m_param_PfadSourceFiles + sDokumentName + "." + m_param_DateiEndung_Org_Files, m_param_PfadSourceFiles + sDokumentName + "." + m_param_DateiEndung_ErrorEDKB08_Files)
|
||||
End Select
|
||||
|
||||
'Wenn Net Use Parametrisiert ist diesen wieder trennen
|
||||
If m_param_MitNetUse = 1 Then
|
||||
makeNetUse(Enum_MapTyp.Loeschen)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
WriteDokumentStatus = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,42 @@
|
||||
Module DivFnk
|
||||
|
||||
Public Function FolderExist(ByVal dn As String) As Boolean
|
||||
Try
|
||||
If System.IO.Directory.Exists(dn) Then FolderExist = True Else FolderExist = False
|
||||
Catch
|
||||
FolderExist = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Create_Folders(ByVal s As String) As Boolean
|
||||
Dim xt(10) As String
|
||||
Dim xti As Integer
|
||||
Dim po As Integer
|
||||
Dim x As String = ""
|
||||
Dim xti1 As Integer
|
||||
po = InStr(s, "\")
|
||||
xti = 0
|
||||
While po <> 0
|
||||
xt(xti) = Left(s, po - 1)
|
||||
xti = xti + 1
|
||||
s = Right(s, Len(s) - (po))
|
||||
po = InStr(s, "\")
|
||||
End While
|
||||
xt(xti) = s
|
||||
For xti1 = 0 To xti
|
||||
If x <> "" Then x = x & "\"
|
||||
x = x & xt(xti1)
|
||||
If Not FolderExist(x) Then Create_Folder(x)
|
||||
Next
|
||||
Create_Folders = True
|
||||
End Function
|
||||
|
||||
Public Function Create_Folder(ByVal dn As String) As Boolean
|
||||
Try
|
||||
System.IO.Directory.CreateDirectory(dn)
|
||||
Catch
|
||||
Create_Folder = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,41 @@
|
||||
Microsoft Visual Studio Solution File, Format Version 9.00
|
||||
# Visual Studio 2005
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08_GSF", "EDKB08_GSF.vbproj", "{190A0F46-BF30-4589-8003-361256BCA6F1}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08_GSF_Tester", "..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj", "{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SourceCodeControl) = preSolution
|
||||
SccNumberOfProjects = 3
|
||||
SccProjectName0 = \u0022$/EDKB08_GSF\u0022,\u0020ETAAAAAA
|
||||
SccLocalPath0 = ..
|
||||
SccProvider0 = MSSCCI:Microsoft\u0020Visual\u0020SourceSafe
|
||||
CanCheckoutShared = false
|
||||
SccProjectFilePathRelativizedFromConnection0 = EDKB08_GSF\\
|
||||
SccProjectUniqueName1 = EDKB08_GSF.vbproj
|
||||
SccLocalPath1 = ..
|
||||
CanCheckoutShared = false
|
||||
SccProjectFilePathRelativizedFromConnection1 = EDKB08_GSF\\
|
||||
SccProjectUniqueName2 = ..\\EDKB08_GSF_Tester\\EDKB08_GSF_Tester.vbproj
|
||||
SccLocalPath2 = ..
|
||||
CanCheckoutShared = false
|
||||
SccProjectFilePathRelativizedFromConnection2 = EDKB08_GSF_Tester\\
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{190A0F46-BF30-4589-8003-361256BCA6F1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{190A0F46-BF30-4589-8003-361256BCA6F1}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{190A0F46-BF30-4589-8003-361256BCA6F1}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{190A0F46-BF30-4589-8003-361256BCA6F1}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
@@ -0,0 +1,118 @@
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectType>Local</ProjectType>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{190A0F46-BF30-4589-8003-361256BCA6F1}</ProjectGuid>
|
||||
<SccProjectName>SAK</SccProjectName>
|
||||
<SccLocalPath>SAK</SccLocalPath>
|
||||
<SccAuxPath>SAK</SccAuxPath>
|
||||
<SccProvider>SAK</SccProvider>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ApplicationIcon>
|
||||
</ApplicationIcon>
|
||||
<AssemblyKeyContainerName>
|
||||
</AssemblyKeyContainerName>
|
||||
<AssemblyName>EDKB08_GSF</AssemblyName>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||
<DefaultClientScript>JScript</DefaultClientScript>
|
||||
<DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
|
||||
<DefaultTargetSchema>IE50</DefaultTargetSchema>
|
||||
<DelaySign>false</DelaySign>
|
||||
<OutputType>Library</OutputType>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<RootNamespace>EDKB08_GSF</RootNamespace>
|
||||
<StartupObject>
|
||||
</StartupObject>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<MyType>Windows</MyType>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>EDKB08_GSF.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<Optimize>false</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>EDKB08_GSF.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>false</DebugSymbols>
|
||||
<Optimize>true</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>none</DebugType>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System">
|
||||
<Name>System</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Data">
|
||||
<Name>System.Data</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Xml">
|
||||
<Name>System.XML</Name>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AssemblyInfo.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Common.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="DivFnk.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="WordChange.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="My Project\" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<PropertyGroup>
|
||||
<PreBuildEvent>
|
||||
</PreBuildEvent>
|
||||
<PostBuildEvent>
|
||||
</PostBuildEvent>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,10 @@
|
||||
""
|
||||
{
|
||||
"FILE_VERSION" = "9237"
|
||||
"ENLISTMENT_CHOICE" = "NEVER"
|
||||
"PROJECT_FILE_RELATIVE_PATH" = "relative:EDKB08_GSF"
|
||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
|
||||
}
|
||||
Binary file not shown.
@@ -0,0 +1,10 @@
|
||||
""
|
||||
{
|
||||
"FILE_VERSION" = "9237"
|
||||
"ENLISTMENT_CHOICE" = "NEVER"
|
||||
"PROJECT_FILE_RELATIVE_PATH" = "relative:EDKB08_GSF"
|
||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROJECT"
|
||||
}
|
||||
@@ -0,0 +1,22 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?><?xml-stylesheet type='text/xsl' href='_UpgradeReport_Files/UpgradeReport.xslt'?><UpgradeLog>
|
||||
<Properties><Property Name="Solution" Value="EDKB08_GSF">
|
||||
</Property><Property Name="Projektmappendatei" Value="C:\DATA\EDKB08_GSF\EDKB08_GSF.sln">
|
||||
</Property><Property Name="Date" Value="Freitag, 28. September 2007">
|
||||
</Property><Property Name="Time" Value="14:27">
|
||||
</Property></Properties><Event ErrorLevel="0" Project="" Source="EDKB08_GSF.sln" Description="Datei wurde erfolgreich als "C:\DATA\EDKB08_GSF_sik\Backup\EDKB08_GSF.sln" gesichert">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="EDKB08_GSF.vbproj" Description="Projektdatei erfolgreich gesichert als C:\DATA\EDKB08_GSF_sik\Backup\EDKB08_GSF.vbproj">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="AssemblyInfo.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08_GSF_sik\Backup\AssemblyInfo.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="Common.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08_GSF_sik\Backup\Common.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="DivFnk.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08_GSF_sik\Backup\DivFnk.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="WordChange.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08_GSF_sik\Backup\WordChange.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF" Source="EDKB08_GSF.vbproj" Description="Die Projektdatei erfordert keine Konvertierung.">
|
||||
</Event><Event ErrorLevel="3" Project="EDKB08_GSF" Source="EDKB08_GSF.vbproj" Description="Keine Konvertierung erforderlich">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj" Description="Projektdatei erfolgreich gesichert als C:\DATA\EDKB08_GSF_sik\Backup\EDKB08_GSF_Tester.vbproj">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\AssemblyInfo.vb" Description="Namenskonflikt bei Sicherungsdateien. Datei wird umbenannt in: C:\DATA\EDKB08_GSF_sik\Backup\AssemblyInfo(2).vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\AssemblyInfo.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08_GSF_sik\Backup\AssemblyInfo(2).vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\ModMain.vb" Description="Datei erfolgreich gesichert als C:\DATA\EDKB08_GSF_sik\Backup\ModMain.vb">
|
||||
</Event><Event ErrorLevel="0" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj" Description="Die Projektdatei erfordert keine Konvertierung.">
|
||||
</Event><Event ErrorLevel="3" Project="EDKB08_GSF_Tester" Source="..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj" Description="Keine Konvertierung erforderlich">
|
||||
</Event><Event ErrorLevel="0" Project="" Source="EDKB08_GSF.sln" Description="Die Projektmappe wurde erfolgreich konvertiert.">
|
||||
</Event><Event ErrorLevel="3" Project="" Source="EDKB08_GSF.sln" Description="Converted">
|
||||
</Event></UpgradeLog>
|
||||
@@ -0,0 +1,28 @@
|
||||
Public Class WordChange
|
||||
|
||||
Dim m_sourcestring As String
|
||||
Property SourceString() As String
|
||||
Get
|
||||
Return m_sourcestring
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_sourcestring = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_targetstring As String
|
||||
Property TargetString() As String
|
||||
Get
|
||||
Return m_targetstring
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_targetstring = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Sub New(ByVal Source As String, ByVal target As String)
|
||||
m_sourcestring = Source
|
||||
m_targetstring = target
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,207 @@
|
||||
BODY
|
||||
{
|
||||
BACKGROUND-COLOR: white;
|
||||
FONT-FAMILY: "Verdana", sans-serif;
|
||||
FONT-SIZE: 100%;
|
||||
MARGIN-LEFT: 0px;
|
||||
MARGIN-TOP: 0px
|
||||
}
|
||||
P
|
||||
{
|
||||
FONT-FAMILY: "Verdana", sans-serif;
|
||||
FONT-SIZE: 70%;
|
||||
LINE-HEIGHT: 12pt;
|
||||
MARGIN-BOTTOM: 0px;
|
||||
MARGIN-LEFT: 10px;
|
||||
MARGIN-TOP: 10px
|
||||
}
|
||||
.note
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffff;
|
||||
COLOR: #336699;
|
||||
FONT-FAMILY: "Verdana", sans-serif;
|
||||
FONT-SIZE: 100%;
|
||||
MARGIN-BOTTOM: 0px;
|
||||
MARGIN-LEFT: 0px;
|
||||
MARGIN-TOP: 0px;
|
||||
PADDING-RIGHT: 10px
|
||||
}
|
||||
.infotable
|
||||
{
|
||||
BACKGROUND-COLOR: #f0f0e0;
|
||||
BORDER-BOTTOM: #ffffff 0px solid;
|
||||
BORDER-COLLAPSE: collapse;
|
||||
BORDER-LEFT: #ffffff 0px solid;
|
||||
BORDER-RIGHT: #ffffff 0px solid;
|
||||
BORDER-TOP: #ffffff 0px solid;
|
||||
FONT-SIZE: 70%;
|
||||
MARGIN-LEFT: 10px
|
||||
}
|
||||
.issuetable
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffe8;
|
||||
BORDER-COLLAPSE: collapse;
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 100%;
|
||||
MARGIN-BOTTOM: 10px;
|
||||
MARGIN-LEFT: 13px;
|
||||
MARGIN-TOP: 0px
|
||||
}
|
||||
.issuetitle
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffff;
|
||||
BORDER-BOTTOM: #dcdcdc 1px solid;
|
||||
BORDER-TOP: #dcdcdc 1px;
|
||||
COLOR: #003366;
|
||||
FONT-WEIGHT: normal
|
||||
}
|
||||
.header
|
||||
{
|
||||
BACKGROUND-COLOR: #cecf9c;
|
||||
BORDER-BOTTOM: #ffffff 1px solid;
|
||||
BORDER-LEFT: #ffffff 1px solid;
|
||||
BORDER-RIGHT: #ffffff 1px solid;
|
||||
BORDER-TOP: #ffffff 1px solid;
|
||||
COLOR: #000000;
|
||||
FONT-WEIGHT: bold
|
||||
}
|
||||
.issuehdr
|
||||
{
|
||||
BACKGROUND-COLOR: #E0EBF5;
|
||||
BORDER-BOTTOM: #dcdcdc 1px solid;
|
||||
BORDER-TOP: #dcdcdc 1px solid;
|
||||
COLOR: #000000;
|
||||
FONT-WEIGHT: normal
|
||||
}
|
||||
.issuenone
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffff;
|
||||
BORDER-BOTTOM: 0px;
|
||||
BORDER-LEFT: 0px;
|
||||
BORDER-RIGHT: 0px;
|
||||
BORDER-TOP: 0px;
|
||||
COLOR: #000000;
|
||||
FONT-WEIGHT: normal
|
||||
}
|
||||
.content
|
||||
{
|
||||
BACKGROUND-COLOR: #e7e7ce;
|
||||
BORDER-BOTTOM: #ffffff 1px solid;
|
||||
BORDER-LEFT: #ffffff 1px solid;
|
||||
BORDER-RIGHT: #ffffff 1px solid;
|
||||
BORDER-TOP: #ffffff 1px solid;
|
||||
PADDING-LEFT: 3px
|
||||
}
|
||||
.issuecontent
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffff;
|
||||
BORDER-BOTTOM: #dcdcdc 1px solid;
|
||||
BORDER-TOP: #dcdcdc 1px solid;
|
||||
PADDING-LEFT: 3px
|
||||
}
|
||||
A:link
|
||||
{
|
||||
COLOR: #cc6633;
|
||||
TEXT-DECORATION: underline
|
||||
}
|
||||
A:visited
|
||||
{
|
||||
COLOR: #cc6633;
|
||||
}
|
||||
A:active
|
||||
{
|
||||
COLOR: #cc6633;
|
||||
}
|
||||
A:hover
|
||||
{
|
||||
COLOR: #cc3300;
|
||||
TEXT-DECORATION: underline
|
||||
}
|
||||
H1
|
||||
{
|
||||
BACKGROUND-COLOR: #003366;
|
||||
BORDER-BOTTOM: #336699 6px solid;
|
||||
COLOR: #ffffff;
|
||||
FONT-SIZE: 130%;
|
||||
FONT-WEIGHT: normal;
|
||||
MARGIN: 0em 0em 0em -20px;
|
||||
PADDING-BOTTOM: 8px;
|
||||
PADDING-LEFT: 30px;
|
||||
PADDING-TOP: 16px
|
||||
}
|
||||
H2
|
||||
{
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 80%;
|
||||
FONT-WEIGHT: bold;
|
||||
MARGIN-BOTTOM: 3px;
|
||||
MARGIN-LEFT: 10px;
|
||||
MARGIN-TOP: 20px;
|
||||
PADDING-LEFT: 0px
|
||||
}
|
||||
H3
|
||||
{
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 80%;
|
||||
FONT-WEIGHT: bold;
|
||||
MARGIN-BOTTOM: -5px;
|
||||
MARGIN-LEFT: 10px;
|
||||
MARGIN-TOP: 20px
|
||||
}
|
||||
H4
|
||||
{
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 70%;
|
||||
FONT-WEIGHT: bold;
|
||||
MARGIN-BOTTOM: 0px;
|
||||
MARGIN-TOP: 15px;
|
||||
PADDING-BOTTOM: 0px
|
||||
}
|
||||
UL
|
||||
{
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 70%;
|
||||
LIST-STYLE: square;
|
||||
MARGIN-BOTTOM: 0pt;
|
||||
MARGIN-TOP: 0pt
|
||||
}
|
||||
OL
|
||||
{
|
||||
COLOR: #000000;
|
||||
FONT-SIZE: 70%;
|
||||
LIST-STYLE: square;
|
||||
MARGIN-BOTTOM: 0pt;
|
||||
MARGIN-TOP: 0pt
|
||||
}
|
||||
LI
|
||||
{
|
||||
LIST-STYLE: square;
|
||||
MARGIN-LEFT: 0px
|
||||
}
|
||||
.expandable
|
||||
{
|
||||
CURSOR: hand
|
||||
}
|
||||
.expanded
|
||||
{
|
||||
color: black
|
||||
}
|
||||
.collapsed
|
||||
{
|
||||
DISPLAY: none
|
||||
}
|
||||
.foot
|
||||
{
|
||||
BACKGROUND-COLOR: #ffffff;
|
||||
BORDER-BOTTOM: #cecf9c 1px solid;
|
||||
BORDER-TOP: #cecf9c 2px solid
|
||||
}
|
||||
.settings
|
||||
{
|
||||
MARGIN-LEFT: 25PX;
|
||||
}
|
||||
.help
|
||||
{
|
||||
TEXT-ALIGN: right;
|
||||
margin-right: 10px;
|
||||
}
|
||||
@@ -0,0 +1,232 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt">
|
||||
|
||||
<xsl:key name="ProjectKey" match="Event" use="@Project"/>
|
||||
|
||||
<xsl:template match="Events" mode="createProjects">
|
||||
<projects>
|
||||
<xsl:for-each select="Event">
|
||||
<!--xsl:sort select="@Project" order="descending"/-->
|
||||
<xsl:if test="(1=position()) or (preceding-sibling::*[1]/@Project != @Project)">
|
||||
|
||||
<xsl:variable name="ProjectName" select="@Project"/>
|
||||
|
||||
<project>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="@Project"/>
|
||||
</xsl:attribute>
|
||||
|
||||
<xsl:if test="@Project=''">
|
||||
<xsl:attribute name="solution">
|
||||
<xsl:value-of select="@Solution"/>
|
||||
</xsl:attribute>
|
||||
</xsl:if>
|
||||
|
||||
<xsl:for-each select="key('ProjectKey', $ProjectName)">
|
||||
<!--xsl:sort select="@Source" /-->
|
||||
<xsl:if test="(1=position()) or (preceding-sibling::*[1]/@Source != @Source)">
|
||||
|
||||
<source>
|
||||
<xsl:attribute name="name">
|
||||
<xsl:value-of select="@Source"/>
|
||||
</xsl:attribute>
|
||||
|
||||
<xsl:variable name="Source">
|
||||
<xsl:value-of select="@Source"/>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:for-each select="key('ProjectKey', $ProjectName)[ @Source = $Source ]">
|
||||
|
||||
<event>
|
||||
<xsl:attribute name="error-level">
|
||||
<xsl:value-of select="@ErrorLevel"/>
|
||||
</xsl:attribute>
|
||||
<xsl:attribute name="description">
|
||||
<xsl:value-of select="@Description"/>
|
||||
</xsl:attribute>
|
||||
</event>
|
||||
</xsl:for-each>
|
||||
</source>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
</project>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
</projects>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="projects">
|
||||
<xsl:for-each select="project">
|
||||
<xsl:sort select="@Name" order="ascending"/>
|
||||
<h2>
|
||||
<xsl:if test="@solution">Projektmappe: <xsl:value-of select="@solution"/></xsl:if>
|
||||
<xsl:if test="not(@solution)">Projekt: <xsl:value-of select="@name"/>
|
||||
<xsl:for-each select="source">
|
||||
<xsl:variable name="Hyperlink" select="@name"/>
|
||||
<xsl:for-each select="event[@error-level='4']">
|
||||
<A class="note"><xsl:attribute name="HREF"><xsl:value-of select="$Hyperlink"/></xsl:attribute><xsl:value-of select="@description"/></A>
|
||||
</xsl:for-each>
|
||||
</xsl:for-each>
|
||||
</xsl:if>
|
||||
</h2>
|
||||
|
||||
<table cellpadding="2" cellspacing="0" width="98%" border="1" bordercolor="white" class="infotable">
|
||||
<tr>
|
||||
<td nowrap="1" class="header" _locID="Filename">Dateiname</td>
|
||||
<td nowrap="1" class="header" _locID="Status">Status</td>
|
||||
<td nowrap="1" class="header" _locID="Errors">Fehler</td>
|
||||
<td nowrap="1" class="header" _locID="Warnings">Warnungen</td>
|
||||
</tr>
|
||||
|
||||
<xsl:for-each select="source">
|
||||
<xsl:sort select="@name" order="ascending"/>
|
||||
<xsl:variable name="source-id" select="generate-id(.)"/>
|
||||
|
||||
<xsl:if test="count(event)!=count(event[@error-level='4'])">
|
||||
|
||||
<tr class="row">
|
||||
<td class="content">
|
||||
<A HREF="javascript:"><xsl:attribute name="onClick">javascript:document.images['<xsl:value-of select="$source-id"/>'].click()</xsl:attribute><IMG border="0" alt="expand/collapse section" class="expandable" height="11" onclick="changepic()" src="_UpgradeReport_Files/UpgradeReport_Plus.gif" width="9"><xsl:attribute name="name"><xsl:value-of select="$source-id"/></xsl:attribute><xsl:attribute name="child">src<xsl:value-of select="$source-id"/></xsl:attribute></IMG></A> <xsl:value-of select="@name"/>
|
||||
</td>
|
||||
<td class="content">
|
||||
<xsl:if test="count(event[@error-level='3'])=1">
|
||||
<xsl:for-each select="event[@error-level='3']">
|
||||
<xsl:if test="@description='Converted'">Konvertiert</xsl:if>
|
||||
<xsl:if test="@description!='Converted'"><xsl:value-of select="@description"/></xsl:if>
|
||||
</xsl:for-each>
|
||||
</xsl:if>
|
||||
<xsl:if test="count(event[@error-level='3'])!=1 and count(event[@error-level='3' and @description='Converted'])!=0">Konvertiert
|
||||
</xsl:if>
|
||||
</td>
|
||||
<td class="content"><xsl:value-of select="count(event[@error-level='2'])"/></td>
|
||||
<td class="content"><xsl:value-of select="count(event[@error-level='1'])"/></td>
|
||||
</tr>
|
||||
|
||||
<tr class="collapsed" bgcolor="#ffffff">
|
||||
<xsl:attribute name="id">src<xsl:value-of select="$source-id"/></xsl:attribute>
|
||||
|
||||
<td colspan="7">
|
||||
<table width="97%" border="1" bordercolor="#dcdcdc" rules="cols" class="issuetable">
|
||||
<tr>
|
||||
<td colspan="7" class="issuetitle" _locID="ConversionIssues">Konvertierungsprobleme - <xsl:value-of select="@name"/>:</td>
|
||||
</tr>
|
||||
|
||||
<xsl:for-each select="event[@error-level!='3']">
|
||||
<xsl:if test="@error-level!='4'">
|
||||
<tr>
|
||||
<td class="issuenone" style="border-bottom:solid 1 lightgray">
|
||||
<xsl:value-of select="@description"/>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
</table>
|
||||
</td>
|
||||
</tr>
|
||||
</xsl:if>
|
||||
</xsl:for-each>
|
||||
|
||||
<tr valign="top">
|
||||
<td class="foot">
|
||||
<xsl:if test="count(source)!=1">
|
||||
<xsl:value-of select="count(source)"/> Dateien
|
||||
</xsl:if>
|
||||
<xsl:if test="count(source)=1">
|
||||
1 Datei
|
||||
</xsl:if>
|
||||
</td>
|
||||
<td class="foot">
|
||||
Konvertiert: <xsl:value-of select="count(source/event[@error-level='3' and @description='Converted'])"/><BR/>
|
||||
Nicht konvertiert <xsl:value-of select="count(source) - count(source/event[@error-level='3' and @description='Converted'])"/>
|
||||
</td>
|
||||
<td class="foot"><xsl:value-of select="count(source/event[@error-level='2'])"/></td>
|
||||
<td class="foot"><xsl:value-of select="count(source/event[@error-level='1'])"/></td>
|
||||
</tr>
|
||||
</table>
|
||||
</xsl:for-each>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="Property">
|
||||
<xsl:if test="@Name!='Date' and @Name!='Time' and @Name!='LogNumber' and @Name!='Solution'">
|
||||
<tr><td nowrap="1"><b><xsl:value-of select="@Name"/>: </b><xsl:value-of select="@Value"/></td></tr>
|
||||
</xsl:if>
|
||||
</xsl:template>
|
||||
|
||||
<xsl:template match="UpgradeLog">
|
||||
<html>
|
||||
<head>
|
||||
<META HTTP-EQUIV="Content-Type" content="text/html; charset=utf-8"/>
|
||||
<link rel="stylesheet" href="_UpgradeReport_Files\UpgradeReport.css"/>
|
||||
<title>Konvertierungsbericht
|
||||
<xsl:if test="Properties/Property[@Name='LogNumber']">
|
||||
<xsl:value-of select="Properties/Property[@Name='LogNumber']/@Value"/>
|
||||
</xsl:if>
|
||||
</title>
|
||||
<script language="javascript">
|
||||
function outliner () {
|
||||
oMe = window.event.srcElement
|
||||
//get child element
|
||||
var child = document.all[event.srcElement.getAttribute("child",false)];
|
||||
//if child element exists, expand or collapse it.
|
||||
if (null != child)
|
||||
child.className = child.className == "collapsed" ? "expanded" : "collapsed";
|
||||
}
|
||||
|
||||
function changepic() {
|
||||
uMe = window.event.srcElement;
|
||||
var check = uMe.src.toLowerCase();
|
||||
if (check.lastIndexOf("upgradereport_plus.gif") != -1)
|
||||
{
|
||||
uMe.src = "_UpgradeReport_Files/UpgradeReport_Minus.gif"
|
||||
}
|
||||
else
|
||||
{
|
||||
uMe.src = "_UpgradeReport_Files/UpgradeReport_Plus.gif"
|
||||
}
|
||||
}
|
||||
</script>
|
||||
</head>
|
||||
<body topmargin="0" leftmargin="0" rightmargin="0" onclick="outliner();">
|
||||
<h1 _locID="ConversionReport">Konvertierungsbericht - <xsl:value-of select="Properties/Property[@Name='Solution']/@Value"/></h1>
|
||||
|
||||
<p><span class="note">
|
||||
<b>Konvertierungsdauer:</b> <xsl:value-of select="Properties/Property[@Name='Date']/@Value"/> <xsl:value-of select="Properties/Property[@Name='Time']/@Value"/><br/>
|
||||
</span></p>
|
||||
|
||||
<xsl:variable name="SortedEvents">
|
||||
<Events>
|
||||
<xsl:for-each select="Event">
|
||||
<xsl:sort select="@Project" order="ascending"/>
|
||||
<xsl:sort select="@Source" order="ascending"/>
|
||||
<xsl:sort select="@ErrorLevel" order="ascending"/>
|
||||
<Event>
|
||||
<xsl:attribute name="Project"><xsl:value-of select="@Project"/> </xsl:attribute>
|
||||
<xsl:attribute name="Solution"><xsl:value-of select="/UpgradeLog/Properties/Property[@Name='Solution']/@Value"/> </xsl:attribute>
|
||||
<xsl:attribute name="Source"><xsl:value-of select="@Source"/> </xsl:attribute>
|
||||
<xsl:attribute name="ErrorLevel"><xsl:value-of select="@ErrorLevel"/> </xsl:attribute>
|
||||
<xsl:attribute name="Description"><xsl:value-of select="@Description"/> </xsl:attribute>
|
||||
</Event>
|
||||
</xsl:for-each>
|
||||
</Events>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:variable name="Projects">
|
||||
<xsl:apply-templates select="msxsl:node-set($SortedEvents)/*" mode="createProjects"/>
|
||||
</xsl:variable>
|
||||
|
||||
<xsl:apply-templates select="msxsl:node-set($Projects)/*"/>
|
||||
|
||||
<p></p><p>
|
||||
<table class="note">
|
||||
<tr>
|
||||
<td nowrap="1">
|
||||
<b>Konvertierungseinstellungen</b>
|
||||
</td>
|
||||
</tr>
|
||||
<xsl:apply-templates select="Properties"/>
|
||||
</table></p>
|
||||
</body>
|
||||
</html>
|
||||
</xsl:template>
|
||||
</xsl:stylesheet>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 69 B |
Binary file not shown.
|
After Width: | Height: | Size: 71 B |
Binary file not shown.
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
EDKB08_GSF
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
|
||||
</members>
|
||||
</doc>
|
||||
@@ -0,0 +1,9 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[EDKB08_GSF.sln]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/EDKB08_GSF/EDKB08_GSF", TIBAAAAA
|
||||
|
||||
[EDKB08_GSF.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/EDKB08_GSF/EDKB08_GSF", TIBAAAAA
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
EDKB08_GSF
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
|
||||
</members>
|
||||
</doc>
|
||||
@@ -0,0 +1,9 @@
|
||||
bin\EDKB08_GSF.dll
|
||||
bin\EDKB08_GSF.xml
|
||||
obj\Release\ResolveAssemblyReference.cache
|
||||
obj\Release\EDKB08_GSF.dll
|
||||
obj\Release\EDKB08_GSF.xml
|
||||
obj\Debug\ResolveAssemblyReference.cache
|
||||
obj\Debug\EDKB08_GSF.dll
|
||||
obj\Debug\EDKB08_GSF.xml
|
||||
obj\Debug\EDKB08_GSF.pdb
|
||||
Binary file not shown.
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
EDKB08_GSF
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
|
||||
</members>
|
||||
</doc>
|
||||
Binary file not shown.
Reference in New Issue
Block a user