Pantalone писал(а):Такой таракан у меня
Pantalone писал(а):У меня апдейтов и селектов вагон в коде, не разумно тратить такое количество времени чтобы все это перелопатить и не забыть ничего, вместо того, чтобы поместить рантайм либу в папку с прогой.
Pantalone писал(а):Зачем он тебе в p-code?
Pantalone писал(а):У меня апдейтов и селектов вагон в коде, не разумно тратить такое количество времени чтобы все это перелопатить и не забыть ничего, вместо того, чтобы поместить рантайм либу в папку с прогой.
Хакер писал(а):Очень подозрительная программа.
Зачем она юзает CreateFontIndirect и DefineDosDevice ?
Pantalone писал(а):Можно конечно и так его поместить, но не хотелось бы сразу чтобы было ясно что прога на бейсике. Такой таракан у меня
Хакер писал(а):Вот этот модуль, в котором куча кода - это твоего авторства?
VB_D3D_Денис писал(а):Pantalone писал(а):Можно конечно и так его поместить, но не хотелось бы сразу чтобы было ясно что прога на бейсике. Такой таракан у меня
99% присутствующих здесь и ~45% кодеров на других языках узнают, в чем ты делал свою прогу, как бы ты не ухищрялся. А?
Public Function NoZeroS(Text As String) As String
Dim A As Long
A = InStr(1, Text, Chr$(0))
If A = 0 Then
NoZeroS = Text
ElseIf A = 1 Then
NoZeroS = ""
Else
NoZeroS = Mid$(Text, 1, A - 1)
End If
End Function
Public Function NoZeroS(Text As String) As String
NoZeroS = Left$(Text, InStr(1, Text + vbNullChar, vbNullChar)-1)
End Function
Хакер писал(а):CodeName33
Гм... большой труд
Правда много неточных функций или вообще не нужных.
Ну например
- Код: Выделить всё
Public Function NoZeroS(Text As String) As String
Dim A As Long
A = InStr(1, Text, Chr$(0))
If A = 0 Then
NoZeroS = Text
ElseIf A = 1 Then
NoZeroS = ""
Else
NoZeroS = Mid$(Text, 1, A - 1)
End If
End Function
можно преобразовать в
- Код: Выделить всё
Public Function NoZeroS(Text As String) As String
NoZeroS = Left$(Text, InStr(1, Text + vbNullChar, vbNullChar)-1)
End Function
а функция BinaryCompare - это вообще зло
Сейчас этот форум просматривают: AhrefsBot и гости: 95