以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  一个个中文隔开,顶部拼音对应,如何实现  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=195889)

--  作者:185723664
--  发布时间:2025/3/18 21:49:00
--  一个个中文隔开,顶部拼音对应,如何实现
如题
目的是给小孩学拼音对应中文
例如
wo3  shi4  ren2
  我     是    任
[此贴子已经被作者于2025/3/18 22:08:07编辑过]

--  作者:有点蓝
--  发布时间:2025/3/18 22:11:00
--  
考虑使用表格一个单元格一个字



图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:185723664
--  发布时间:2025/3/24 19:16:00
--  回复:(有点蓝)考虑使用表格一个单元格一个字[uploa...
蓝总,代码怎么写呢?单数行怎样对双数行拼音?文字超过255列怎么解决?
--  作者:有点蓝
--  发布时间:2025/3/24 19:50:00
--  
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
图片点击可在新窗口打开查看


--  作者:185723664
--  发布时间:2025/3/24 20:02:00
--  回复:(有点蓝)Dim s As String = "代码怎么写呢?单...
蓝总,怎样实习狐表语音录入文字在上图表双行里面呢?
--  作者:有点蓝
--  发布时间:2025/3/24 20:12:00
--  
语音转文字需要借助第三方接口:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=139788
--  作者:185723664
--  发布时间:2025/3/26 15:56:00
--  回复:(有点蓝)语音转文字需要借助第三方接口:http...
蓝总,中文单元格怎样设置填充米字格?字体设置为楷书
图片点击可在新窗口打开查看
[此贴子已经被作者于2025/3/26 15:56:44编辑过]

--  作者:有点蓝
--  发布时间:2025/3/26 16:49:00
--  
在单元格直接绘制即可:http://www.foxtable.com/webhelp/topics/1493.htm

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目2.zip