JV color JV color JV color
Wednesday, 23 May 2012

วางระบบร้านเน็ต | คำคม | ร้านเกม | 2poto system | อบรม No HDD

ผสมของdota | สูตรgta | เปิดร้านเน็ต | เกม เลข |skype คือ

Friends

Photos

Videos

Events

Groups

Messages

 

ระบบร้านเกมส์ ร้านเน็ตด้วย ระบบ 2poto system

alt

2poto system คือโซลูชั่น ซอฟต์แวร์ บริหารจัดการร้านอินเทอร์เน็ตคาเฟ่ และ บริหารจัดการเกม

คลิปวีดีโอแนะนำ


 

Photo Comments

Video Comments

Latest Discussion

Announcements from visual basic 6

ฟังก์ชั่นเกี่ยวกับตัวอักษร UT_Token
Monday, 13 September 2010 by poto
Function UT_Token$(p_gSource$, p_gSeparator$)
'-------------------------------------------------------
'Call: p_gSource$ String to modify
'   p_gSeparator$ Delimiting string
'
'Ret : UT_Token$ First token from string
'    p_gSource$ Source with first token removed
'
'Notes:
'------------------------------------------------------
Dim gToken$, iPos%

iPos = InStr(p_gSource, p_gSeparator)
If iPos = 0 Then
   gToken = p_gSource
   p_gSource = ""
Else
   gToken = Left$(p_gSource, iPos - 1)
   p_gSource = Mid$(p_gSource, iPos + Len(p_gSeparator))
End If

UT_Token = gToken
End Function

Function UT_stuff$(p_tString$, p_iStart%, p_nDelete%, p_tStuff$)
'----------------------------------------------
'
' Call: p_tString string to stuff
'    p_iStart starting position at which to stuff
'    p_nDelete number of characters to delete
'    p_tStuff text to stuff
'
' Ret: string with requested deletion/db_valion
'    eg. ?UT_stuff$("bcdefg", 2, 3, "x")
'    bxfg
'
'----------------------------------------------
UT_stuff = Left$(p_tString, p_iStart - 1) & p_tStuff & Mid$(p_tString, p_iStart + p_nDelete)

End Function

Function UT_StripCharacter(StringToStrip As String, StrippingChar As String) As String
'------------------------------------------
'Call: StringToStrip
'    StrippingChar
'    eg. ? UT_StripCharacter("asdfasdfasdfasdf","a")
'    "sdfsdfsdfsdf"
'---------------------------------------
Dim iCount As Integer
Dim strTemp As String

iCount = 1
strTemp = StringToStrip

Do While iCount 0
'Find the position of the character to be stripped
   iCount = InStr(iCount, strTemp, StrippingChar)
'If the character was found, then strip it
   If iCount 0 Then _
     strTemp = Left(strTemp, iCount - 1) & Right(strTemp, Len(strTemp) - iCount)
Loop

UT_ StripCharacter = strTemp

End Function

 

 เสนอบทวิจารณ์กระทงด้วย Facebook

โปรดละเว้นการโพสข้อความหรือภาพอันผิดกฎหมาย หรือลบหลู่สถาบันหลักของชาติ ระบบจะบันทึก IP Address ของท่านตามกฎของกระทรวง​หากเราถูกดำเนินคดี ข้อมูลของท่านจะถูกส่งให้ตำรวจเพื่อดำเนินการต่อไป