コード: 全て選択
Dim Sample As String
Sample = "Name=ゆちボン
Live=長崎
Work=学生
Comment=よろしくお願いします
"
コード: 全て選択
Dim Sample As String
Sample = Ex"Name=ゆちボン\r\n"
Sample = Sample + Ex"Live=長崎\r\n"
Sample = Sample + Ex"Work=学生\r\n"
Sample = Sample + Ex"Comment=よろしくお願いします\r\n"コード: 全て選択
> Dim Sample As String
>
> Sample = "Name=ゆちボン
> Live=長崎
> Work=学生
> Comment=よろしくお願いします
> "
> コード: 全て選択
Function OEdit_GetLineText(ByVal lpszText As BytePtr,ByVal nIndex As Long) As BytePtr
' cnt[0]=現在の文字位置
' cnt[1]=現在の行の文字位置
' crlf=現在の行の位置
' length[0]=検索する文字列のバイト数
' length[1]=現在の行の文字列のバイト数
' length[2]=現在の行までの文字列のバイト数
Dim cnt[1] As Long
Dim crlf As Long
Dim length[2] As Long
length[0]=lstrlen(lpszText)
' 文字列の最初から最後まで検索
For cnt[0]=0 To length[0]
' 改行している場合
If (lpszText[cnt[0]]=13) And (lpszText[cnt[0]+1]=10) Then
' 行数と取得したい行数が一致した場合
If crlf=nIndex Then
' 文字列数から現在の行までのバイト数を引く
length[1]=length[0]-length[2]
' 文字列を現在の行までのバイト数から最後まで検索
For cnt[1]=0 To (length[1]-1)
' 改行している場合
If (lpszText[cnt[1]+length[2]]=13) And (lpszText[cnt[1]+length[2]+1]=10) Then
' 現在の行までのバイト数から次の改行コードまでをコピー
OEdit_GetLineText=calloc(cnt[1]+1)
memcpy(OEdit_GetLineText,VarPtr(lpszText[length[2]]),cnt[1])
Exit Function
End If
Next
End If
crlf++
length[2]=cnt[0]+2
'改行コードが見当たらないまま最後まで検索した場合
ElseIf ((lpszText[cnt[0]]=13)=FALSE) And ((lpszText[cnt[0]+1]=10)=FALSE) And (cnt[0]=length[0]) Then
' 現在の行までのバイト数から文字列の最後までをコピー
OEdit_GetLineText=calloc(length[0]-length[2]+1)
memcpy(OEdit_GetLineText,VarPtr(lpszText[crlf]),length[0]-length[2])
End If
Next
End Functionコード: 全て選択
dim mes As String
dim gyo As Long
mes = "ゆちボン\r\n趣味：MIDI作成\r\nよく使う命令：msgbox"
gyo = 2
OEdit_GetLineText(mes,gyo)
コード: 全て選択
dim lineText As BytePtr
dim mes[256] As Byte
dim gyo As Long
lstrcpy(mes,Ex"ゆちボン\r\n趣味：MIDI作成\r\nよく使う命令：msgbox")
gyo = 2
lineText=OEdit_GetLineText(mes,gyo)
MessageBox(0,lineText,Str$(gyo),MB_OK)
free(lineText)コード: 全て選択
Dim str[256] As Byte, cmp[256] As Byte, cng[256] As Byte
Dim len As Long, cnt As Long
lstrcpy(str,"abcabcabcabc")
lstrcpy(cmp,"a")
lstrcpy(cng,"i")
len=lstrlen(str)-1
For cnt=0 To len
If str[cnt]=cmp[0] Then
str[cnt]=cng[0]
End If
Next
MessageBox(0,str,"",MB_OK)コード: 全て選択
#strict
Dim s As String
s = "Hello, world"
MyMsgBox(s)
Sub MyMsgBox(psz As BytePtr)
MessageBox(0, psz, "", MB_OK)
End Subコード: 全て選択
Function OEdit_GetLineTextStr(ByVal pszText As BytePtr, ByVal nIndex As Long) As String
Dim pszResult As BytePtr
pszResult = OEdit_GetLineText(pszText, nIndex)
OEdit_GetLineTextStr = pszResult
free(pszResult)
End Functionコード: 全て選択
Function OEdit_GetLineTextStr(ByVal pszText As BytePtr, ByVal nIndex As Long) As String
> Dim pszResult As BytePtr
> pszResult = OEdit_GetLineText(pszText, nIndex)
> OEdit_GetLineTextStr = pszResult
> free(pszResult)
> End Functionコード: 全て選択
Function GetLineText(ByVal lpszText As BytePtr,ByVal nIndex As Long) As BytePtr
' cnt[0]=現在の文字位置
' cnt[1]=現在の行の文字位置
' crlf=現在の行の位置
' length[0]=検索する文字列のバイト数
' length[1]=現在の行の文字列のバイト数
' length[2]=現在の行までの文字列のバイト数
Dim cnt[1] As Long
Dim crlf As Long
Dim length[2] As Long
' 文字列の長さをバイト数で取得
length[0]=lstrlen(lpszText)
' 文字列の最初から最後まで検索
For cnt[0]=0 To length[0]
' 改行している場合
If (lpszText[cnt[0]]=13) And (lpszText[cnt[0]+1]=10) Then
' 行数と取得したい行数が一致した場合
If crlf=nIndex Then
' 文字列数から現在の行までのバイト数を引く
length[1]=length[0]-length[2]
' 文字列を現在の行までのバイト数から最後まで検索
For cnt[1]=0 To (length[1]-1)
' 改行している場合
If (lpszText[cnt[1]+length[2]]=13) And (lpszText[cnt[1]+length[2]+1]=10) Then
' 現在の行までのバイト数から次の改行コードまでをコピー
GetLineText=calloc(cnt[1]+1)
memcpy(GetLineText,VarPtr(lpszText[length[2]]),cnt[1])
Exit Function
End If
Next
End If
crlf++
length[2]=cnt[0]+2
'改行コードが見当たらないまま最後まで検索した場合
ElseIf ((lpszText[cnt[0]]=13)=FALSE) And ((lpszText[cnt[0]+1]=10)=FALSE) And (cnt[0]=length[0]) Then
' 現在の行までのバイト数から文字列の最後までをコピー
GetLineText=calloc(length[0]-length[2]+1)
memcpy(GetLineText,VarPtr(lpszText[length[2]]),length[0]-length[2])
End If
Next
End Functionコード: 全て選択
Dim str[256] As Byte
Dim pStr As BytePtr
Dim cnt As Long
lstrcpy(str,Ex"変数「A」に\r\n「ゆちボン\r\n学生\r\nプログラム\r\nよろしくお願いします」")
For cnt=0 To 4
pStr=GetLineText(str,cnt)
MessageBox(hMainWnd,pStr,Str$(cnt)+"行目",MB_OK)
free(pStr) : pStr=NULL
Next