如题
目的是给小孩学拼音对应中文
例如
wo3 shi4 ren2
我 是 任
[此贴子已经被作者于2025/3/18 22:08:07编辑过]
蓝总,代码怎么写呢?单数行怎样对双数行拼音?文字超过255列怎么解决?
Dim s As String = "代码怎么写呢?单数行怎样对双数行拼音?文字超过255列怎么解决?"
Dim t As Table = Tables("表B")
t.DataTable.DataRows.Clear
Dim cs As Integer = t.Cols.Count '列数
For i As Integer = 0 To s.Length - 1 Step cs
Dim a As Row = t.AddNew
Dim b As Row = t.AddNew
For j As Integer = 0 To cs - 1
If (i + j) < s.Length Then
Dim c As Char = s(i + j)
b(j) = c
If PY.IsHanzi(c) Then
Dim p As String = PY.GetPY(c, True, 1)
a(j) = p
End If
End If
Next
Next
此主题相关图片如下:1.png

蓝总,怎样实习狐表语音录入文字在上图表双行里面呢?
蓝总,中文单元格怎样设置填充米字格?字体设置为楷书
[此贴子已经被作者于2025/3/26 15:56:44编辑过]