Initial commit
This commit is contained in:
31
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/AssemblyInfo.vb
Normal file
31
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/AssemblyInfo.vb
Normal file
@@ -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.*")>
|
||||
307
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/Common.vb
Normal file
307
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/Common.vb
Normal file
@@ -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
|
||||
42
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/DivFnk.vb
Normal file
42
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/DivFnk.vb
Normal file
@@ -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
|
||||
121
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/EDKB08_GSF.vbproj
Normal file
121
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/EDKB08_GSF.vbproj
Normal file
@@ -0,0 +1,121 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
|
||||
<PropertyGroup>
|
||||
<ProjectType>Local</ProjectType>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{190A0F46-BF30-4589-8003-361256BCA6F1}</ProjectGuid>
|
||||
<SccProjectName>
|
||||
</SccProjectName>
|
||||
<SccLocalPath>
|
||||
</SccLocalPath>
|
||||
<SccAuxPath>
|
||||
</SccAuxPath>
|
||||
<SccProvider>
|
||||
</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>
|
||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
||||
<OldToolsVersion>2.0</OldToolsVersion>
|
||||
</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,42353,42354,42355</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,42353,42354,42355</NoWarn>
|
||||
<DebugType>none</DebugType>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System">
|
||||
<Name>System</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.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"
|
||||
}
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
</appSettings>
|
||||
</configuration>
|
||||
28
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/WordChange.vb
Normal file
28
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/WordChange.vb
Normal file
@@ -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
|
||||
BIN
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/bin/EDKB08_GSF.dll
Normal file
BIN
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/bin/EDKB08_GSF.dll
Normal file
Binary file not shown.
BIN
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/bin/EDKB08_GSF.pdb
Normal file
BIN
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/bin/EDKB08_GSF.pdb
Normal file
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,5 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[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.
Binary file not shown.
@@ -0,0 +1,6 @@
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.pdb
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.xml
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\obj\Debug\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\obj\Debug\EDKB08_GSF.xml
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\obj\Debug\EDKB08_GSF.pdb
|
||||
@@ -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
|
||||
@@ -0,0 +1,26 @@
|
||||
C:\Data\EDKB08_GSF\bin\EDKB08_GSF.dll
|
||||
C:\Data\EDKB08_GSF\bin\EDKB08_GSF.pdb
|
||||
C:\Data\EDKB08_GSF\bin\EDKB08_GSF.xml
|
||||
C:\Data\EDKB08_GSF\obj\Debug\ResolveAssemblyReference.cache
|
||||
C:\Data\EDKB08_GSF\obj\Debug\EDKB08_GSF.dll
|
||||
C:\Data\EDKB08_GSF\obj\Debug\EDKB08_GSF.xml
|
||||
C:\Data\EDKB08_GSF\obj\Debug\EDKB08_GSF.pdb
|
||||
E:\Software-Projekte\EDOKA\Batches\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\Batches\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.xml
|
||||
E:\Software-Projekte\EDOKA\Batches\EDKB08\EDKB08_GSF\obj\Release\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\Batches\EDKB08\EDKB08_GSF\obj\Release\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\Batches\EDKB08\EDKB08_GSF\obj\Release\EDKB08_GSF.xml
|
||||
E:\Software-Projekte\EDOKA\Batches\EDKB08\EDKB08_GSF\obj\Debug\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\Batches\EDKB08\EDKB08_GSF\obj\Debug\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\Batches\EDKB08\EDKB08_GSF\obj\Debug\EDKB08_GSF.xml
|
||||
E:\Software-Projekte\EDOKA\Batches\EDKB08\EDKB08_GSF\obj\Debug\EDKB08_GSF.pdb
|
||||
E:\Software-Projekte\EDOKA\Batches\Office_2010\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\Batches\Office_2010\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.xml
|
||||
E:\Software-Projekte\EDOKA\Batches\Office_2010\EDKB08\EDKB08_GSF\obj\Release\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\Batches\Office_2010\EDKB08\EDKB08_GSF\obj\Release\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\Batches\Office_2010\EDKB08\EDKB08_GSF\obj\Release\EDKB08_GSF.xml
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.xml
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\obj\Release\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\obj\Release\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\obj\Release\EDKB08_GSF.xml
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,4 @@
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\bin\EDKB08_GSF.xml
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\obj\Release\EDKB08_GSF.dll
|
||||
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_GSF\obj\Release\EDKB08_GSF.xml
|
||||
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
EDKB08_GSF
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
|
||||
</members>
|
||||
</doc>
|
||||
BIN
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/vssver.scc
Normal file
BIN
Archiv/EDKB08 - Kopie (2)/_Archiv/EDKB08_GSF/vssver.scc
Normal file
Binary file not shown.
Reference in New Issue
Block a user