一个困扰已久的问题：如何计算文本宽度？

fuldho

给定一段文本可以判断总宽，已知宽度判断容纳字符数有难度了

120宽度 W 只容纳9个 S 达到16个，

lanfengc

回复 1# cashiba
回复 16# fuldho

    ;这是要获取宽度的文字
Global $text="W"
Global $user32Dll=DllOpen("user32.dll")
GetTextWidthAndHeight($text)

Func GetTextWidthAndHeight($_text="")
        Local $_resultArray[2]=[-1,-1]
        If $_text="" Then Return $_resultArray
        Local $hdc = DllCall($user32Dll, "handle", "GetDC", "hwnd", 0)
        If @error Then Return $_resultArray
        $hdc = $hdc[0]
        ;构建一个Rect的结构体
        Local $tagRECT = "struct;long Left;long Top;long Right;long Bottom;endstruct"
        Local $tRect = DllStructCreate($tagRect)
        ;初始化结构体变量初始值
        DllStructSetData($tRect, "Left", 1)
        DllStructSetData($tRect, "Top", 1)
        DllStructSetData($tRect, "Right", 1)
        DllStructSetData($tRect, "Bottom", 1)
        ;获取结构体变量指针
        Local $pRect = DllStructGetPtr($tRect)
        ;定义字体格式
        Local $format = BitOR(1024, 32)
        ;输出文字到DC
        DllCall($user32Dll,"INT","DrawTextA","Int", $hdc,"Str",$text,"int",-1,"ptr",$pRect,"int",$format)
        If @error Then Return $_resultArray
        ;获取返回的Rect信息
        Local $right= DllStructGetData($tRect, "Right")
        Local $left = DllStructGetData($tRect, "Left")
        Local $top= DllStructGetData($tRect, "Top")
        Local $bottom = DllStructGetData($tRect, "Bottom")
        ConsoleWrite($right&@TAB&$left&@TAB&$top&@TAB&$bottom&@CRLF)
        ;计算宽度
        $_resultArray[0]=$right-$left
        ;计算高度
        $_resultArray[1]=$bottom-$top
        Return $_resultArray
EndFunc

fuldho

回复 17# lanfengc

6楼要求“给定的宽度能容纳下多少个字符”

afan

忍不住说一句，这是2010年坛友提的类似问题…  
善用搜索不光只是简单的搜索，如何使用关键字也是智慧

lanfengc

回复 18# fuldho


    获取某个字符的宽度. 然后用已知宽度除以 该字符的宽度

fuldho

回复 20# lanfengc

16楼的 字符串不可能是单一的字符，在未知字符串之前120宽度到底可以容纳字符是多少个？

cashiba

回复  lanfengc
16楼的 字符串不可能是单一的字符，在未知字符串之前120宽度到底可以容纳字符是多少个？ ...
fuldho 发表于 2016-4-16 22:22

只要有计算字符宽度的函数或函数组合，可以用stringmid函数将一段文本拆解计算单字符宽，然后累加字符数和字符宽，应该可以判断能容纳的字符数了吧

cashiba

计算字符宽度的目的之一，如上图，
Excel表或类似的数据表格，有时列数比较多，每个列各行的数据字符数有多有少，每列的列宽跟最多字符数行的宽度也不匹配。
在满屏的情况下，想尽可能的规整和美观的呈现数据，尽量减少使用横向滚动条的话，一般需要满足下面的条件：

1、所有列都在屏幕范围内，也就是总列宽=屏幕宽度

   每一列中，以字符数最多的行，其字符总宽度为该列最适宜列宽
2、最适宜列宽短的列，尽可能在一行内显示每行的完整数据
3、最适宜列宽长的列，尽可能多的显示每一行的数据

即达到下图效果


首先是需要计算字符宽度，然后是有几个因变量互相关联，一直难以达到效果，所以造成困扰。
ACN的大侠大神们肯定有办法....

fuldho

回复 23# cashiba

字符串是已知的使用10楼的
    _WinAPI_GetTextExtentPoint32可以得到

cashiba

回复  cashiba

字符串是已知的使用10楼的
    _WinAPI_GetTextExtentPoint32可以得到
fuldho 发表于 2016-4-17 16:03

23楼的问题，fuldho老师看看，该怎样根据每列的最长文本宽度来重新设置各列的最适合列宽？

$j--------------------列序数，从1到$n，最后一列为$n
$w_col($j)---------每列的原列宽
$w_str($j)---------用_WinAPI_GetTextExtentPoint32计算得到的每列的所有行中最长文本的宽度
@desktopwidth---屏幕宽度

雨林GG

帮顶了，找到计算方法了吗？

piku

楼主的问题，我想是不是可以用等宽字体避免

cashiba

楼主的问题，我想是不是可以用等宽字体避免
piku 发表于 2016-4-20 17:26

计算文本宽度的最终目的，是想解决23楼的问题-----表格如何以最适宜列宽满屏呈现各列数据

chamlien

回复 28# cashiba


    表格不是有一项”最适合列宽“吗？（显然我的回答不是你想要的...）