svhs/Stefani---doksikeszito
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

A kód mostantól csak akkor végzi el a speciális Audi-rajzszám átalakítást, ha a paraméter AUDI_RAJZSZAM értéke "26-" prefix-szel kezdődik.

Browse Source 
Ha az érték "26-"-tal kezdődik, az átalakítás logikája: az eredeti string első 3 karaktere + "000-" + következő 3 karakter + "-" + a 7–12. karakterekből vett 6 karakter + "-001". (Ha ez a feldolgozás sikertelen, a program figyelmeztetést dob: "Az audi szám nem megfelelő formátum." és leáll.)
This commit is contained in:
svhs
2026-05-18 17:41:35 +02:00
parent 197fad1418
commit e7948e8e7f
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Dokumentáció Készítő 3/MainWindow.xaml.vb
+8
View File
@@ -297,7 +297,15 @@ Public Class MainWindow
Else Else
Dim tempstr As String = "" Dim tempstr As String = ""
ReadParam(model1, "AUDI_RAJZSZAM", tempstr) ReadParam(model1, "AUDI_RAJZSZAM", tempstr)
If tempstr.StartsWith("26-") Then
Try
tempstr = tempstr.Substring(0, 3) + "000-" + tempstr.Substring(3, 3) + "-" + tempstr.Substring(7, 6) + "-001" tempstr = tempstr.Substring(0, 3) + "000-" + tempstr.Substring(3, 3) + "-" + tempstr.Substring(7, 6) + "-001"
Catch ex As Exception
MsgBox("Az audi szám nem megfelelő formátum.")
Environment.Exit(0)
End
End Try
End If
workDir = workDir + "04 - Leadási dokumentáció\INV-____\Zeichnungsdokumentation_2D-Daten\" + tempstr + "\" workDir = workDir + "04 - Leadási dokumentáció\INV-____\Zeichnungsdokumentation_2D-Daten\" + tempstr + "\"
End If End If