Új hozzászólás Aktív témák

• #11717 Fire/SOUL/CD félisten Badb0y #11715

  Új Válasz 2011-10-16 14:45:28 #11717

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Badb0y #11715 üzenetére

  Function FSCD_GetMachineInfo(MyRange As Range) As String
  
  Dim MyString As String
  Dim MyArray() As String
  Dim MyRightMarker_Good() As Variant, MyRightMarker_Bad() As Variant
  MyRightMarker_Good = Array("11.6", "12.1", "12.5", "12.6", "13.1", "13.3", "14.1", "15.6", "17.3", "18.4")
  MyRightMarker_Bad = Array("11,6", "12,1", "12,5", "12,6", "13,1", "13,3", "14,1", "15,6", "17,3", "18,4")
  
  MyString = MyRange.Value
  For i = 0 To UBound(MyRightMarker_Good)
  MyString = Replace(MyString, MyRightMarker_Bad(i), MyRightMarker_Good(i))
  Next i
  MyString = Replace(MyString, "BONTOTT", "")
  MyString = Replace(MyString, "NB", "")
  MyString = Trim(MyString)
  MyString = Replace(MyString, ",", " ")
  MyString = Replace(MyString, " ", " ")
  MyString = Replace(MyString, " ", " ")
  MyArray = Split(MyString, " ")
  MyString = ""
  For i = 0 To UBound(MyArray)
  If Not (InStr(1, MyArray(i), ".", vbTextCompare) > 0 Or _
  InStr(1, MyArray(i), ",", vbTextCompare) > 0 Or _
  InStr(1, MyArray(i), """", vbTextCompare) > 0) Then
  If i = 0 Then
  MyString = MyString + StrConv(MyArray(i), vbProperCase) + " "
  Else
  MyString = MyString + MyArray(i) + " "
  End If
  Else
  Exit For
  End If
  Next i
  FSCD_GetMachineInfo = Trim(MyString + "Laptop")
  
  End Function

  m.zmrzlina
  Igen, ezek azok a hibák, amit csak a kód készítője tud kibogarászni, de a lényeg, hogy meglett a bug...

Új hozzászólás Aktív témák